Select Code to Download

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

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