if ($_ = m%$dm%) {
    #stuff
}

##</code><code>##

  perl -e '$string = "/"; print "08/14/04"=~/$string/
? "matched\n" : "no match\n"'