$somename    = qr/[\w\.\s]+/;
$someaddress = qr/[\w\.+]+@[\w\.]+/;

if (/($somename) <($someaddress)>/) {
   print "Got a name of  '$somename'\n";
   print "Got address of '$someaddress'\n";
}