pos($_) = -1; 
  s/(^~ | \G) .*? \K  _  /+/gx;