sub MakePtag{ chomp(my $fixme = shift;) # take in our parameters $fixme=~s|(\r\n)|

|g; # replace all \r\n with <\p>

$fixme = "

$fixme

"; # Add beginning and ending tags return $fixme; }