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