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$/";
  select $b,$b,$b,0.05;
}