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

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