my $file = 'file013.txt';
(my $sk = $file) =~ s/^.*?(\d+).*$/$1/;