How Convert Email to ID@Domain.Suffix using Perl?

I need to take an email address in this variable: $itemAuthorEmail
and break it apart into its components of:
$eMailID
$eMailDomain
$eMailSuffix

where
$itemAuthorEmail=user123@somewhere.net becomes:
$eMailID = user123
$eMailDomain = somewhere
$eMailSuffix = net

I am thinking this is easy, but I have having difficulty with figuring out how to write the code.