Help for this page

Select Code to Download


  1. or download this
      s/^.*?(\d+).*$/$1/s
  2. or download this
      s/\D*(\d+).*/$1/s
  3. or download this
      (my $sk = $file) =~ s/\D*(\d*).*/$1/s;
  4. or download this
      my ($sk) = $file =~ /(\d+)/;