Select Code to Download

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

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