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