Select Code to Download

use strict;
use warnings;
...
$string =~ s/^\s*$/x/mg;

print "$string\n";

next line is spaces
x
...
and now some newlines
xx
end