my $dm=08/14/04;
open F, file
while (<F>) {
if ( $_ =~ /$dm/ ) {

blah
blah 
blah
}

if ( $_ =~ m/^\$dm/ ) 

if ( $_ =~ m/[$dm]/ )