RosettaCodeData/Task/Input-loop/Perl-6/input-loop-2.pl6

for $*IN.lines -> $line {
    ...
}