Select Code to Download

Input       |        C        |        a        |        t
ord         |       67        |       97        |       116
...
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
...
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]
...
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)f
+or<>!~/:/..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^$
...
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$&"