Bad lexical interpretation of @ sign when used as english punctuation

[hedges333]

my $phrase = 'Please contact Waldo @ waldo@whereswaldo.org';
my @addrs = map $_->address, Email::Address->parse($phrase);
print "$_\n" for @addrs;

outputs:

Waldo@waldo

[cschwenz]

a variation on the above example that i would expect Email::Address to correctly parse is:

Hostel Stay @ Somewhere <random@somecompany.com>

the above clearly has an email address surrounded by angle brackets.

but when put through Email::Address, it is parsed as:

my @list = Email::Address->parse( 'Hostel Stay @ Somewhere <random@somecompany.com>' );
my @emails = map { [ $_->phrase(), $_->address() ] } @list;
print Data::Dumper->new([\@emails],['emails'])->Dump();
# the above prints:
#   $valid =[
#       [
#           undef,
#           "Stay\@Somewhere"
#       ],
#       [
#           undef,
#           "random\@somecompany.com"
#       ]
#   ];

what i was expecting:

#   $valid =[
#       [
#           "Hostel Stay \@ Somewhere",
#           "random\@somecompany.com"
#       ]
#   ];