Mary Had a Little Camel


perl -e'%c=map{[a..z]
->[log($)/log(2)8-48],
$
}map 2
($/8),68..
8*8;print((((chr)x($/16)).
("x00"x(256-$
)/16))
x256)for map{$c{$
},0}
"jklkjjj0kkk0j0g0g00jklkjjjjkkjkl"
=~/./g'|aplay

(from the Perl Monastery)