...
    if( $mail =~ /\@/ ) {
        ...
    }
...