What you really want is to use Mail::Address:

use Mail::Address;

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

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated