Select Code to Download

my $start = "eeeeaaaabbbeeee";
my $end = translate($start);
# $end eq "eeeeacccdddeeee"  (aaabbb -> cccddd)

start -> part(s)    { start.t := join ('', part(s).t) }

...
AnB -> 'a' AnB 'b'  { AnB.t := 'c' . AnB.t . 'd' }
AnB -> 'ab'         { AnB.t := 'cd' }