while (<DATA>)
{
  1 while s/^ ~ .*? \K  _  /+/x;

  print "$_";
}