Select Code to Download

use warnings;
use strict;
...
if ($line =~ s/\*([^*]+)\*\s*((?:$bagofwords)*)/*$1 $2* /) {
    say $line;
}

use v6;

...
say '*Mary* had a little lamb'.subst:
        rx{ '*' (<-[*]>+) '*' \s+ [<word> \s+]+ },
        { '*' ~ join('_', $0, @($<word>)) ~ '* ' };