Select Code to Download

use warnings;
use strict;
...
my $string = '12 abcdefghijklmnopqrstuvwxyz';
$string =~ s/^(\d+) (.*)/substr $2, 0, $1/e;
print "$string\n";

abcdefghijkl