sub f{
for((5)x3,0){print'*',' *'x5,'='x15,"\n ",'* 'x$_,"\n"}print+('='x26,"$/$/")x3
}

##</code><code>##

sub f {
for(1..7){($d=$d?'':'='x15)&&print'*';print' *'x5,"$d\n"}print+($/.('='x26).$/)x3
}