<div>
<br />

<pre><code id="code-172050">$data = join(&quot;&quot;, @lines);
$data =~ s/\n|\cM//g;           ## remove all line breaks
$data =~ s/\&lt;\/.+?\&gt;/$&amp;\n/g;    ## re-add them
print $data;</code></pre>
</div>





$data = join("", @lines);
$data =~ s/\n|\cM//g;           ## remove all line breaks
$data =~ s/\<\/.+?\>/$&\n/g;    ## re-add them
print $data;

<div>
thanks, <br />
would have liked to see what was wrong with my anchor m/&gt;$/<br />
<br />

</div>


thanks,
would have liked to see what was wrong with my anchor m/>$/



<div>
<div class="content wysiwyg-content">
I have a very long xml-file and have now spotted some not wellformed lines. There seem to be linebreaks in some of the tag-content so I have something like:<br />
<br />
&lt;Value&gt; bla bla &lt;/Value&gt;<br />
&lt;Value&gt; bad <br />
line &lt;/Value<br />
&lt;Value&gt; bla bla &lt;Value&gt;<br />
<br />
Im looking for a regexp to detect the bad line and chomp it so I will have<br />
<br />
&lt;Value&gt; bla bla &lt;/Value&gt;<br />
&lt;Value&gt; bad line &lt;/Value<br />
&lt;Value&gt; bla bla &lt;Value&gt;<br />
<br />
Tried the code below but it didn't work. Chomped all lines. <br />
Beware that some of the good lines might also have a whitespace-char after the last &quot;&gt;&quot;<br />
<br />
foreach $line (@lines) {<br />
&nbsp; &nbsp;print $line;<br />
&nbsp; &nbsp;if (!($line =~ m/&gt;$/)) {<br />
&nbsp; &nbsp; &nbsp; print LOG &quot;HIT LINE $line&quot;;<br />
&nbsp; &nbsp; &nbsp; chomp($line);<br />
&nbsp; &nbsp; &nbsp; print OUT $line;<br />
&nbsp; &nbsp;} else {<br />
&nbsp; &nbsp; &nbsp; print OUT $line; <br />
&nbsp; &nbsp;} &nbsp; <br />
}<br />
<br />
<br />

</div>
</div>


I have a very long xml-file and have now spotted some not wellformed lines. There seem to be linebreaks in some of the tag-content so I have something like:

<Value> bla bla </Value>
<Value> bad 
line </Value
<Value> bla bla <Value>

Im looking for a regexp to detect the bad line and chomp it so I will have

<Value> bla bla </Value>
<Value> bad line </Value
<Value> bla bla <Value>

Tried the code below but it didn't work. Chomped all lines. 
Beware that some of the good lines might also have a whitespace-char after the last ">"

foreach $line (@lines) {
   print $line;
   if (!($line =~ m/>$/)) {
      print LOG "HIT LINE $line";
      chomp($line);
      print OUT $line;
   } else {
      print OUT $line; 
   }   
}




detecting lines with &quot;wrong&quot; linebreak

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.

detecting lines with &quot;wrong&quot; linebreak

detecting lines with "wrong" linebreak