#!/usr/bin/perl
use strict;
my $i = 0;
my $file = "extensions";
open(EXTEN, $file) || die("Couldn't open $file");
chomp(my @myexten=<EXTEN>);
close(EXTEN);

foreach (@myexten) {

  print qq!($i,'$_','','','','\\"Irene Cohen\\" <$_>','yes','ny-internal','','','','','dynamic','','','7001',NULL,'',NULL,NULL,NULL,NULL,'',NULL,NULL,NULL,NULL,NULL,'friend','','all','ulaw',NULL,0,'','','yes')\n!;
  $i++;
}