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