sub YetAnotherMakePtag { my $fixme = shift; my @lines = split "\r\n", $fixme; my @nonblank_lines = grep { /\S/ } @lines; my @wrapped_lines = map { "

$_

" } @nonblank_lines; return join("\r\n", @wrapped_lines; }