print "Do they match ? : ";
print $filename_a =~ /\Q$filename_b\E/ ; # output is 1