Help for this page
/^CHECK.*[.]txt$/
/^CHECK.*(?<!A1)[.]txt$/
$ perl -Mstrict -Mwarnings -E ' my @test_filenames = qw{ ... CHECK_CH.ABC12.txt CHECK_CH..txt CHECK.ABC12.txt