in reply to Re: Parsing an email address
in thread Parsing an email address

...or, alternatively, put a backslash in front of '@':

my $adr= "User\@domain.com";