$somename    = 'David Nesting';
$someaddress = 'david@example.com';

$_ = 'David Nesting <david@example.com>';

if (/^$somename <$someaddress>$/) {
   print "Yep, this one is $somename!\n";
}