sub YetAnotherMakePtag {
  my $fixme = shift;
  my @lines = split "\r\n", $fixme;
  my @nonblank_lines = grep { /\S/ } @lines;
  my @wrapped_lines = map { "<p>$_</p>" } @nonblank_lines;
  return join("\r\n", @wrapped_lines;
}