my ($sk) = $file =~ /(\d+)/;