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

Stealing part of choroba's idea.
perl -e 's/^/pack+q.a..($^F^$^F**$^F),qq^\x19"\x11\x04mX^^\$\//e/print +'

Replies are listed 'Best First'.
Re: More fun with a reference
by Tux (Abbot) on Dec 27, 2018 at 10:05 UTC
    perl -E'@C=(split$C,$C.\"cC")[1..4];for(@C,$C,$,,$)){$C[$_]++for$C,2,$#C};$C[2]^="\cC";say@C'

    Enjoy, Have FUN! H.Merijn
      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'