'continue' while s/$EN$ES$EN/$EN$EN$EN/g;
'continue' while s/([$EN$AN])$CS\1/$1$1$1/g;
'continue' while
: repeat to catch overlaps (syntax very
Perlish)[...]
: Character class, any of the contained
characters\1
, $
1: Back references caught by
()
14 of 15 |