use Mail::Address;
my $addr = 'name@domain.com';
my $ma = Mail::Address->new('', $addr);
my $user = $ma->user;