Help for this page
if ($_ = m%$dm%) { #stuff }
perl -e '$string = "/"; print "08/14/04"=~/$string/ ? "matched\n" : "no match\n"'