Select Code to Download

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

#!perl
sub date_manip {
...
  9840S    ebexpire, ebexpire     12/30/69    08/18/04
  9840S    ebexpire, ebeXpire     12/30/69    08/18/04
  9840S    ebexpire, ebexpire     XX/30/69    08/18/04