use strict;

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

print $sk;