Select Code to Download

s/(\s+)/$1 eq "\n\n" ? $1 : " "/eg;

($_ = reverse) =~ s{
  (?:
...
  )+                    # one or more times
}{ }xg;                 # turn it into a single space
$_ = reverse;