Muestra de Perl (Perl 5.28.1)

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