if ( $file =~ /^\Q$filemask\E/i ) { push @chk_files, $file; print "\n\t$file "; } # End of IF