Select Code to Download

use strict ;
use warnings ;
...
  print /^\S+\@([a-z-]+\.)+[a-z]{2,4}$/ ? "GOOD!!!" : "bad" ;
  print "\n" ;
}

you@somewhere.com is GOOD!!!
me@here is bad
me@here@there@everywhere is bad
why@ is bad
@.it is bad