Select Code to Download

Select or download this

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

Select or download this

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