These went on the back of a pair of "I *HEART* PERL" shirts I made. I was working with the knowledge that any character in the english alphabet could be represented with only 5 bits.
first:

$e="\e[";for$r(0..62){for(0..11){($z,$y,$x,$s,$c)=(31&(620
,5586,14053,496)[$_/3]>>5*($_%3),(7-($r/5))*($_%3-1),(11-
($r/3))*(int($_/3)-2),sin(3-$r/10),cos(3-$r/10));print$_?
"":$e."2J",$e,10-int($s*$x-$c*$y),";",40-int($c*$x+$s*$y)
,H=>chr$z+($z?96:10)}select'','','',(30-$r)?.1:1}
[download]

second:

$|=1;$e="\e[";for$f(0..80){for(0..23){
$a=abs($f+$_-50)-11;($b,$c,$d)=(4+($_%
3)+1*($a>0?$a:0),40+(int($_/6)*2+(($_%
6)>2?1:0)-4)*($a>0?int($a/2)+1:1),31&(
34324480,653283109,522247848,134400022
)[$_/6]>>5*($_%6));print$_?"":$e."2J",
$b<23?$e."$b;$c\H".chr($d?$d+96:0):''}
select'','','',(38-$f)?.1:1}
[download]

erik schorr
911