If you have a single filename then,

my ($match)=$file=~/(\d{4})\d{4}\.txt/;
[download]

If you have multiple filenames and you want to construct array of the results then,

my @a = map {/(\d{4})\d{4}\.txt/} @filenamearray;
[download]