if ( ( $file =~ m/^CHECK*/ ) && ( $file =~ m/.txt$/ ) ) {
print "name is = $file\n";
}