Select Code to Download

if (1) {
   $_= <<"   END";
...
   /^(\s*)/;
   print s/^$1//gmr;
}

if (1) {
    print <<"    EOT" =~ s/^(\s*)//r =~ s/^$1//gmr;
...
    and has indented parts
    EOT
}