Help for this page

Select Code to Download

Select or download this
my @record = split /(["<",">"])/;

Select or download this

while (<OLDFILE>) {
  chomp;

...

  print NEWFILE "$last, $first, $email\n";
}