in reply to grep question

I'd say something like this would work... 
my @capture = map { /(\d{4})\d{4}.txt/ } grep { ... } ...;

[download]

In Section Seekers of Perl Wisdom