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

##</code><code>##

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