$substr = $string =~ /^(\d+) (.*)/ && substr($2, 0, $1);

##</code><code>##

($len, $substr) = $string =~ /^(\d+) (.*)/ && ($1, substr($2, 0, $1));