my $lines = "} } \n  } }\n  foo }  }\n";
$lines =~ s,(}[}\s]*)\n,
           "}\n" x ($1 =~ tr!}!!)
           ,xgem;

print $lines;
__END__
}
}
}
}
  foo }
}