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$&"