$email =~ m/^[a-z0-9]@[a-z0-9]$/

##</code><code>##

$email =~ /^[a-z0-9]+@[a-z0-9]+\.[a-z0-9]+$/

##</code><code>##

$email =~ /^\w+@\w+\.\w+$/