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