in reply to grep question
I'd say something like this would work...
my @capture = map { /(\d{4})\d{4}.txt/ } grep { ... } ...;
In Section
Seekers of Perl Wisdom
in reply to grep question
my @capture = map { /(\d{4})\d{4}.txt/ } grep { ... } ...;