#!/usr/bin/perl -l
use Email::Address;

@addresses = Email::Address->parse('abc3@gmail.com');
print "ok     : @addresses";

@addresses = Email::Address->parse('abc3\@gmail.com');
print "not ok : @addresses";

__END__
ok     : abc3@gmail.com
not ok :