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