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