sub MakePtag{ my $fixme = shift; # take in our parameters return join "\r\n", # join with newlines map { "

$_

" } # wrap each line in

tags grep { /\S/ } # must have at least one non-whitespace character split "\r\n", $fixme; # break apart on the newlines }