Cute! Real cute ++

Swapping print"\ec" with system'cls' makes it work on win32.

That meant saving a char somewhere to maintain the formatting, so chr(96) became chr+96, and a little shuffling gives

$a=q`$a="\$a=q".($t=chr+96).$a.$t.';$a=~s#\s##g;eval$a#';$_="73x051005
+05
07070403040320x080407030103060303030203040320x080406030303050303030203
+04
0320x080405110407041020x08040404050403030803040320x0203030403040704020
+30
803040320x03080403090302030803040320x73";@z=map{$d=0;s#..#$d=!$d;($d||
+0)
x$&#eg;$_=[split//]}split/x/;{$b=reverse$a;system'cls';$c=0;map{for(@$
+_)
{print$_?(chop$b):$"}print$/;$_=[@$_[0],@$_[70],@$_[1..69],@$_[71]];}@
+z;
select$q,$q,$q,.05;redo}`;$a=~s#\s##g;eval$a##########################
+##
[download]