while() { chomp; my ($email,$name) = split /;/; $name =~ s/\"//g; print $email . ',' . $name . "\n"; }