CODE EXAMPLE FOR PERL

Perl (perl 2018.12) sample

#!/usr/bin/perl6
 
while (($_ = $*IN.get) != 42) { say $_ }