Select Code to Download

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

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