Perl Owns Me

#!/usr/bin/perl

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