use strict;

my $file = 'file013.txt';
my ($sk) = $file =~ m/(\d+)/; # list context to get what () captured

print $sk;