my $line="";
     my @unwrappeddata;
     foreach (@body) {
             chomp $_;
             next if /^#/;
        
             if (m/^[^\s=]+\s+=\s*/ || m/^\[.*\]$/) {
                     $line =~ s/^#/\n#/m;  
                     $line .= "\n";
                     push @unwrappeddata, $line;
                     $line = $_;
             } else {
                     $line .= $_;
             }
     last if qw/</template>/; 
     }
     $line .= "\n";
     push @unwrappeddata, $line;