Well, I got one down to 66:

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

But then I noticed suaveant's reworking of dragonchild's can be shaved to 65:

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

sigh