use strict;
use warnings;

my $value = 'me.you@mydom.com';

if ($value =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.) / ||
    $value !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/
    ) {
    print "Bad email\n";
} else {
    print "Good email\n";
}

##</code><code>##

Good email