Help for this page

Select Code to Download

Select or download this

sub MakePtag {
  my ($s) = @_;
  $s =~ s!\r\n!</p><p>!g;
  return "<p>$s</p>";
}