my @capture = map { /(\d{4})\d{4}.txt/ } grep { ... } ...;