For each line in file, use regex

$line =~ $line =~ m{(\w+)\s+<[\w+\@\.]+>\s+(\([\w\s]+\))[\sa-zA-Z]+(\d
++/\d+/\d+)};
print "$1, $2, $3\n";
[download]

--VC