use File::Basename;
my ($zip) = fileparse($file) =~ /^(\d{5})\D/;