Getting out the emails from a email client list

mltocsv.pl

#!/usr/bin/perl

@d = split(/\;/,`cat mailinglist.txt`);
print "Email\tFirst\tLast\n";
foreach(@d) {
    chomp;
    $s = $_;
    $s =~ s/^\s+|\s+$//g;
    if ($s=~/(.*?)\s*\((.*?)\)/igsm) {
        $e = $2;
        ($f,$l) = $1=~/(.*)\s+(.*)$/;
        $f = $1 if !$f;
        ($f) = $f=~/(.*)\@/ if $f eq $e;
        print "$e\t$f\t$l\n";

    } else {
        ($f) = $s=~/(.*)\@/;
        print "$s\t$f\t\n";
    }
}