lucs Oh, this works: 00:53
m: my $n = 1; my $s = 'a - a - a a'; $s ~~ s:g/ a /A{$n++}/; say $s;
camelia A1 - A2 - A3 A4 00:54