(my $sk = $file) =~ s/\D*(\d*).*/$1/s;