Select Code to Download

$str = "this\nis my short\nstring\n\n";

...
for ($str =~ /.*\n|.+/g) {  # Just like <>
   print(++$i, ": $_");
}