$^I = ".bak";
@ARGV = "test.txt";

while(<>) {
     if(/^\s+Tag {/) {
         print;
         #skip over lines before 'Name' line
         while(<>) {
            if(/^\s+Name/) {
                s/"(.*)\s+(.*)/"$1$2"/g;
                print;
                last;
            }
            else {
                print;
            }
         }
     else {
        print;
     }
}