Here is my sad attempt, but it will get the ball rolling...

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
[download]

106... ewww, but the first posted... hack away at it :)

Update! Not to be outdone!

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
[download]

94!

Update293... took out an accidental space

                - Ant
                - Some of my best work - Fish Dinner