use warnings;
use strict;

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

##</code><code>##

abcdefghijkl