use v5.10;

my $email = 'foo <bar>';
$email =~ /(.*) (<.*>)/;
say "1='$1' 2='$2'";