s/^.*?(\d+).*$/$1/s

##</code><code>##

  s/\D*(\d+).*/$1/s

##</code><code>##

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

##</code><code>##

  my ($sk) = $file =~ /(\d+)/;