Help for this page

Select Code to Download

Select or download this

$ perl -le '
> $search    = q{(.*)\d{6}\.txt$};
...
> print $to_modify;'
AAAA200912.txt
XXXX_AAAA