Select Code to Download

%replace = ( A => 'B', B => 'C', C => 'A');
s/(A|B|C)/$replace{$1}/g;

s/A/B/;
s/B/C/;
s/C/A/;