my $email = 'someuser@example.com'
$email =~ /(.*) (<.*>)/;
say "1='$1' 2='$2'";