I would like to shorten this program: open$%; chop,y,!-~,#,,s,(.).?,$+,gfor@~=grep$|--,($|)x18,<0>; @;=map~~reverse,reverse@~; ($-=$_%3)||(--$|,map$_=reverse,@~,@;), system($^O=~Win?CLS:'clear'), map(print($"x+abs(20*(2*$|-$-)),$_,$/),$-&1?@;:@~), sleep 1for$%..11
I would like this program to run warning-free on both Unix and Windows ActivePerl. You should assume that this program has an odd number of lines (7 above, 47 for Acme::EyeDrops camel shape). Any advice or tips appreciated. /-\ndrew In case you are wondering what possible use such a program could be, see the title of this email or http://www.perlmonks.com/index.pl?node_id=176577
