sub MakePtag{ chomp(my $fixme = shift;) # take in our parameters $fixme=~s|(\r\n)|
|g; # replace all \r\n with <\p>
$fixme = "
$fixme