#!/usr/bin/perl

while (<>) {
    print($2."\n") if (/^(.*[\(\[\s,])?(\S+?\@\S+?)([\)\]\s,].*)?$/);
}