sub f{print(($/,"* "x5,'*',"="x15,$/," *"x5)x3,($/,"="x26,$/)x3)}
      123456789_123456789_123456789_123456789_123456789_12345678