$line="abc.xyz@lmnop.com";
$line=~s/\@/\\@/g;
print "\n line is $line";

##</code><code>##

@addr=Email::Address->parse($line);

$user=$addr->$user;

print "\n $user";