$^X="select"; foreach (substr($pi,8)x3)=~/../g) { $_ = chr($_+64); $^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'); }