Perl (Perl 5.28.1) Probe

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