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