Select Code to Download

{
  local $/;
...
  s/-/ - /g;
  print
}

open P, ' | perl -laF, -ne "s/-/ - /, print for @F" ';
print P <DATA>;
close P;