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