sub MakePtag { join "\r\n", map {"<p>$_</p>"} grep {/\S/} split "\r\n", $_[0] } # :)