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