s{(
        (?:[^\n]{1,15})(?=\n|$) # Line requiring no wrapping
      | (?:[^\n]{0,14},)(?!\n)  # Line that can be wrapped at comma
      | (?:[^\n]{15})(?!\n)     # Line to be wrapped, not at comma
      )\n?
    }{$1\n}gx;