Select Code to Download

use strict;

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

print $sk;