7c. Named zero-width assertions 

my $text = "Mo\x{032E}\x{030A}o\x{030C}se";

do {
    say $text;
} while ( $text =~ s/\X$// );