Select Code to Download

next unless /\s/;

next if $_ eq substr "' . (quotemeta $password) . '", 0, length;

[[... beginning of the code as above...]]
print '
...
  __DATA__
';
[[... the rest of the code is as above...]]