'some process replacing return chars. with (</p><p>)'
 =~ s(.*(</p><p>).*){\$input =~ s#\n#$1#g;};