Doing it with just one emoji sort of misses the point... One way in P6, combining the full family into one character: my \test = "test\c[Woman,ZWJ,Woman,Z

Doing it with just one emoji sort of misses the point... One way in P6, combining the full family into one character: my \test = "test\c[Woman,ZWJ,Woman,ZWJ,Girl,ZWJ,Boy]"; say test.chars; # 5 say test; # test say flip test; # tset say test.chop; # test HN displays the 7 codepoint family as three spaces. To see that P6 treats the family as one: https://tio.run/##K0gtyjH7/18BCHIrFWJKUotLFGwV1EG0ukKdQmleZkFiUXGqgk14fm5ingKEdM8sylFwyq@008vKz8yzUlDXiQr30lG35gIZU5xYqQDSrpecAdRpraCsYIoibq0AAcpg3of5E1c@auhFUMsh1DK4nrSczAKYRmUFnOpLilNL0O3PL7CG2fP/PwA https://tio.run/##K0gtyjH7/18BCHIrFWJKUotLFGwV1EG0ukKdQmleZk...