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