Select Code to Download

# ...
while (<$INPUT>) {
     print $OUT if /God/ or /David/ or /Mary/ or /Jesus/;
     # could also be written: print $OUT if /God|David|Mary|Jesus/;

IN: while (<$INPUT>) {
     my @words = split /\b/, $_;
...
          print $_ and next IN if exists $name_hash{$word};
     }
}