if($file=~/\Q$pattern\E/){...}