foreach (("Just~another~Perl~hacker~"x3)=~/./g) 
{
  $^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;
}