foreach (@body) { chomp $_; next if /^#/; if( m{(.*?.*)} ) { push @unwrappeddata, $1; $line = $2; last; }elsif(@unwrappeddata) { # we're in between template if (m/^[^\s=]+\s+=\s*/ || m/^\[.*\]$/) { $line =~ s/^#/\n#/m; $line .= "\n"; push @unwrappeddata, $line; $line = $_; } else { $line .= $_; } } }