perl6 -ne 'my $c = BEGIN qw<while say>.Set; my $line = $_; $line.say if $_ (elem) $c for $line.words' while_done.pl6