my $rfc822re = &Mail::RFC822::Address::make_rfc822re;

while (my $line = <DATA>) {
   print "Valid mail: ".$_."\n"
      for $line =~ /($rfc822re)/g;
}