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)
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)