sub Ovid_Clear_MakePtag2{
  my $fixme = shift;           # take in our parameters
  return join "",              # join with nothing
    map  { "<p>$_</p>" }       # wrap each line in <p></p> tags
    split "\r\n", $fixme;      # break apart on the newlines
}