sub f{print((($/,"* "x5,'*',"="x15,$/," *"x5)x4)[0..22],($/,"="x26,$/)
+x3)}
      123456789_123456789_123456789_123456789_123456789_123456789_1234
+567
[download]

67... and yours can go to 66...

print((@s=('*'," *"x5,"="x15,$/)," *"x5,$/)x3,@s,($/,'='x26,$/)x3)
123456789_123456789_123456789_123456789_123456789_123456789_123456
[download]

                - Ant
                - Some of my best work - Fish Dinner