in reply to Verifying Email Addresses

Use Email::Address::XS to validate email addresses. It conforms best to the specifications and is fast.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom