my $count = () = $filetext =~ /[\w._+-]+\@[\w.-]+/g;
if ( $count > 50 ) {
    #success!
}