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