use Mail::Address;

my $addr = Mail::Address->parse('user@example.com');
my $domain = $addr->host();