Perl (Perl 2018.12) Образец

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