http://www.perlmonks.org?node_id=1227759


in reply to Re: More fun with a reference
in thread More fun with a reference

Love it. Needs more 'C' though :)
perl -E'@C=(split$C,$C.\"cC")[++$^C..$^C<<$^C+($^C)];for(@C,$c,$c,$c){ +$C[$_]++for$C,2,$#C};$C[$^C<<1]^="\cC";say@C'