sub Readable_Ovid_Clear_MakePtag{ my $fixme = shift; # make newline-breaks into HTML paragraphs return join "\r\n", map { "

$_

" } grep { /\S/ } split "\r\n", $fixme; }