my @foo = $baa =~ /([-.\w]+@[-.\w])/g;
でできなかったっけ