$dm='08/14/04';
$_='There is an 08/14/04 in here';
if ($_ =~ m/$dm/) {
  print "Matched on <$_>\n";
}