substr($^X,0)=substr($pi,-6); foreach (12,28,-18,-6,-10,14) { substr($^X,$.++,1)=chr( substr($pi,21,2)+ substr($pi,$_,2)); } # We need this for the moment to get # rid of the second map below. # Don't worry, it goes away. my @tempa; foreach (substr($pi,8)x3)=~/../g) { push(@tempa,chr($_+substr($pi,21,2))); } map{ $^O=$"x(substr ($pi,-5,2)); substr($^O,sin(++$a/8)*32+ substr($pi,-2)/2+1,1)=$_; substr($^O,sin($a/4)*( substr($pi,2,2))+ substr($pi,-7,-5)-1,1)=$_; print"$^O$/"; eval($^X.('$b,'x3). substr($pi,-3,1).'.'. substr($pi,9,2)); }(@tempa);