I know nothing about C, but a little Perl. The first thing I noticed was that you capture \r\n but don't use $1. Besides that I'd like to remove some unnecessary code.

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