You may want to simply read and then write out the JSON using JSON or JSON::Syck to handle the parsing and re formatting for you. Unless you have malformed JSON one of those modules will be able to help you.

If you can write your tidy system in a general enough way and say call it "jsontidy" you might consider sending it to the module author to include with the next release.