Perl (Perl 5.28.1) Probe
#!/usr/bin/perl
while (($_=<>)!=42) {print $_;}
Doubtful Deer
#!/usr/bin/perl
while (($_=<>)!=42) {print $_;}