my @record = split /(["<",">"])/; #### while () { chomp; my($last, $first, $email) = split /, */; $email =~ tr/<>//d; print NEWFILE "$last, $first, $email\n"; }