use strict;

my $file = 'file013.txt';
my $sk = $file =~ m/\d+/;

print $sk;