$input =~ s/\r\n?/<p>\n/gs ;
  # after this is just the normal process for HTML (current process).