$^X="select"; # 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=$"x75; substr($^O,sin(++$a/8)*32+32,1)=$_; substr($^O,sin($a/4)*14+32,1)=$_; print"$^O$/"; eval($^X.('$b,'x3).'0.05'); }(@tempa);