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

$user=$addr->$user;

print "\n $user";