Perl (Perl 2018.12) Образец
#!/usr/bin/perl6
while (($_ = $*IN.get) != 42) { say $_ }
Doubtful Deer
#!/usr/bin/perl6
while (($_ = $*IN.get) != 42) { say $_ }