Select Code to Download

my $string = '12 abcdefghijklmnopqrstuvwxyz';
my ($len) = ($string =~ /^(\d+)/;
my ($substring) = ($string =~ /^\d+ (.{$len})/);
print "$substring\n";

my ($len,$substring) = ($string =~ /^(\d+) (.{$1})/);