#!perl -w use strict; $_=' $,=$/;$|=@_ =split//,"Justan othe rPerl.hacker";$/=\'$~= (local tim e)[$.]*($.==0||$.==1?1:5);s ubstr($_,eval \\\'$^=$~*2*atan2(1,1)/15;int(- cos($^) *($=+ 1)+11.5)*25+int(sin($^)*($=+1)+12.5)\\\',1, $_[$=+(11,4,0)[$.]])\';do{$_=("."x287). "#"."."x287;for$=(0..10){$.=0;eval$/; $=<7&&($.=1,e val$/);$=<4& &($.=2,ev al$/);}p rint(p ack(" c3 ", 27,9 1, 72 ),(/ .{ 25 }/g) ,s ca lar( lo cal time) );} whil e(slee p(1))';s/\s+//g;eval