sub Ovid_Clear_MakePtag2{ my $fixme = shift; # take in our parameters return join "", # join with nothing map { "

$_

" } # wrap each line in

tags split "\r\n", $fixme; # break apart on the newlines }