if ( $file =~ m/\Q$file_pattern\E$/ ) { # .......