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

for pipe("find -iname '*.txt' -print0", :nl«\0»).lines -> $filename {
    ...
}