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