$l="* * * * * *===============\n";$e=$b=$s=$l;$s=~y/*= /  */;$b=~y/ */==/;$e=~y/*=/  /;$m=$l.$s;$f=$e.$b;print "$m$m$m$l$f$f$f";