Select Code to Download

#!/usr/bin/perl

...
}
print "AFTER:  @strings\n";

 mapping at pos 1: c => m, a => k, b => l
 mapping at pos 4: y => j, x => i, z => k
 match: ^(.)([abc])(..)([xyz]);  replc: $1$repl_map[1]{$2}$3$repl_map[
+4]{$4}

BEFORE: aaaxxx bbbyyy ccczzz
AFTER:  akaxix blbyjy cmczkz