sub MakePtag{
  my ($fixme)=@_;			  # take in our parameters
  $fixme='<p>'.$fixme;		 # Prepend a <p> tag to our string
  $fixme=~s|(\r\n)|<\\p><p>|g; # replace all \r\n with <\p><p>
  $fixme.='<\p>';			  # Append closing <\p> tag
  return $fixme;				
}