$data =~ s/\n{2,}/<p>\n/g;