Input | C | a | t ord | 67 | 97 | 116 Bits | 0 1 0 0 0 0 1 1 | 0 1 1 0 0 0 0 1 | 0 1 1 1 0 1 0 0 6-bit chars | 16 | 54 | 5 | 52 +32 -> ord | 48 | 86 | 37 | 84 Output | 0 | V | % | T #### $ perl -e 'print pack("u","Cat")' #0V%T $ perl -e 'print pack("u","@\tA")' #0`E! $ perl -e 'print pack("u","C")' !0P`` $ perl -e 'print pack("u","Ca")' "0V$` $ perl -e 'print pack("u",chr(0))' !```` $ perl -e 'print pack("u",chr(1))' !`0`` $ perl -e 'print pack("u",chr(4))' !!``` $ perl -e 'print pack("u","Cat"x15)' M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T $ perl -e 'print pack("u","Cat"x30)' M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T $ perl -e 'print pack("u","Cat"x31)' M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T #0V%T $ perl -e 'print pack("u",("Cat"x31)."C")' M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T $0V%T0P`` #### # Marko $_=pack+u,'packed-source-string';y/1-Z/7 ^A9-@5Fa-}/;eval # Sec ($_=pack u,q{packed-source-string})=~y/'A-Z`/ a{-}e-i\n\t1 n-yFm/;eval #### eval lc pack u,'packed-source-string' #### eval lc pack u,'' [17] s//lc pack u,''/ee [18] /(?{lc pack u,''})/ [19] print eval lc pack u,''x99 [26] print eval lc pack(u,'')x99 [27] eval lc(j x 165^pack$<^C,'') [28] update: dmd special, see [id://1026287] $_=pack u,'';y/A-^/a-z NGT/;eval [32] (N represents hard newline) $_=lc pack u,'';y/[-^/ NGT/;eval [32] eval lc pack u,''=~y/[-^/ NGT/r [31] perl 5.12+ s//lc pack u,''x99/ee;y/v_/ N/;print [36] s//lc pack(u,'')x99/ee;y/v_/ N/;print [37] s//lc pack u,''x99/ee;y/[-^/ NGT/;print [39] s//lc pack(u,'')x99/ee;y/[-^/ NGT/;print [40] #### eval lc pack u,'packed-source-string' #### $c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:'}')for<>!~/:/..11;print"@$_ "for@c #### $c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125)for<>!~/:/..11;print"@$_\n"for@c #### mx;$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125)for<>!~/:/..11;print"@$_\n"for@c #### map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125),<>!~/:/..11;print"@$_\n"for@c #### map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125),($_=<>,!/:/)..11;print"@$_\n"for@c #### map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125),0..s//<>/e./:/;print"@$_\n"for@c #### map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($`%12^$_?o:x)&($_^$'/5?o:v125),0..s//<>/e./:/;print"@$_\n"for@c #### # 1 2 3 4 5 6 #234567890123456789012345678901234567890123456789012345678901 map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($`%12^$_?o:x)&($'/+5^$ a.$_?o:v125),0..s//<>/e./:/;print"@$_\n"for@c #### my $source = <<'PERSEVEROUS'; map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($`%12^$_?o:x)&($'/+5^$ a.$_?o:v125),0..s//<>/e./:/;print"@$_\n"for@c PERSEVEROUS my $out = unpack 'u',uc($source); print "eval lc pack u,'" . $out . "'"; #### @c=(@b=(++$n,bottle.'s'x@-,of,beer),on,the,wall),s//Take one down and pass it around, @c. @c, @b. /until/, 99\D+/;print$'."Go to the store and buy some more$&"