$mail =~ /^        # at the beginning
  [a-zA-z0-9]      # one letter or digit
  [a-zA-Z0-9_\-\.] # opt. letters, digits, underscores.
  \@
  [a-zA-z]         # one letter
  ...
$/x;