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