CODE EXAMPLE FOR PERL

Perl (perl 5.28.1) sample

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