Perl (Perl 5.28.1) образец
#!/usr/bin/perl
while (($_=<>)!=42) {print $_;}
Doubtful Deer
#!/usr/bin/perl
while (($_=<>)!=42) {print $_;}