A version of https://github.com/JJ/my-perl6-examples/blob/master/Enhanced-Paragraph.p6 that preserve whitespace

actions.p6

grammar Enhanced-Paragraph {
    token TOP { <superword>[ (\s+) <superword>]+ }
    token superword { <word> | <enhanced-word> }
    token word { \w+ }
    token enhanced-word { \* <word> \* }
}

class Enhanced-Paragraph-actions {
    method TOP ($/) { make [~] $/.caps».value.map({ .made // .Str }) }
    method superword($/) { make $<enhanced-word>?? $<enhanced-word>.made !! $<word>.made }
    method enhanced-word($/) { make "<em>"~$<word>.made~"</em>";}
    method word($/) { make ~$/ }	
}


my $paragraph = "This includes *two* *enhanced* words";
my $parsed = Enhanced-Paragraph.parse($paragraph, actions => Enhanced-Paragraph-actions.new);
say "\nParsed→\n", $parsed;

say "Actions: ", $parsed.made;