$_ = q{mitpoet "@" mit.edu};
$_ =~ s/^([\w+-?\.?]+)\W*[\@|at]\W*([\w+-?\.?]+)/$1\@$2/i;

die $_,$/

#output: mitpoet@mit.edu