C:\>perl -E "my $s='CHECK_ABC123_A1.txt';say $s if ($s =~ m/^CHECK_(\w+)\.txt/ );"
CHECK_ABC123_A1.txt