sub MakePtag { my ($s) = @_; $s =~ s!\r\n!

!g; return "

$s

"; }