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