Help for this page

Select Code to Download


  1. or download this
    $line="abc.xyz@lmnop.com";
$line=~s/\@/\\@/g;
print "\n line is $line";
  2. or download this
    @addr=Email::Address->parse($line);

$user=$addr->$user;

print "\n $user";