Select Code to Download

use strict;

...
$new=~s/\n//gsi;
return $new;
}

Before: |<p>Before new line.
After new line.</p>
|
After: |<p>Before new line.After new line.</p>
|

sub enter
{
...
$new=~s/\n\s*/ /gi;
return $new;
}

After: |<p>Before new line. After new line.</p>
|