Select Code to Download

$somename    = qr/[\w\.\s]+/;
$someaddress = qr/[\w\.+]+@[\w\.]+/;
...
   print "Got a name of  '$somename'\n";
   print "Got address of '$someaddress'\n";
}

$somename    = 'David Nesting';
$someaddress = 'david@example.com';
...
if (/^$somename <$someaddress>$/) {
   print "Yep, this one is $somename!\n";
}