use v6;

token word { had | a | Sam | Tom  }

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