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