substr($^X,0)=375062; foreach (12,28,-18,-6,-10,14) { substr($^X,$.++,1)=chr( 64+ 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($_+64)); } map{ $^O=$"x(75); substr($^O,sin(++$a/8)*32+ 62/2+1,1)=$_; substr($^O,sin($a/4)*( 14)+ 33-1,1)=$_; print"$^O$/"; eval($^X.('$b,'x3). 0.'.'. 05); }(@tempa);