Help for this page
sub f{push@f,(($_%2?'=':' ')x26,"\n")for(1..13);for$i(0..6){$f[$i*27+$ +_]=(($_+$i+1)%2?'*':' ')for(0..10)}print@f} 123456789_123456789_123456789_123456789_123456789_123456789_1234 +56789_123456789_123456789_123456789_123456
sub f{@f=(('=')x26,$/,($")x26,$/)x6;for$i(0..7){$f[$i*27+$_]=(($_+$i+1 +)%2?'*':$")for(0..10)}print@f} 123456789_123456789_123456789_123456789_123456789_123456789_1234 +56789_123456789_123456789_123