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_123456789_123456789_123456789_123456789_123456

##</code><code>##

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_123456789_123456789_123456789_123