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

##</code><code>##

    /$regex/
    /\Q$string\E/