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
}

##</code><code>##

sub Abstract_Clear_MakePtag{
  my $fixme = shift;           # take in our parameters
  return "<p>" . 
         join("</p><p>", split "\r\n", $fixme) . 
         "</p>"  
}