Select Code to Download

my $string = "16 abc\ndefghijklmnopqrstuvwxyz";

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