Help for this page

Select Code to Download

Select or download this

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

Select or download this

#!/usr/bin/perl
use 5.016;
use strict;
...
         and the regex matched the source string.

=cut