$x=' *'x5;print$_%2?$_<1?$x:'':$_<1?"*$x".'='x15:'='x26,$/for-6..6
#23456789_123456789_123456789_123456789_123456789_123456789_123456

##</code><code>##

print+(@s=('*'," *"x5,"="x15,$/)," *"x5,$/)x3,@s,($/,'='x26,$/)x3
#23456789_123456789_123456789_123456789_123456789_123456789_12345