perl -0 -pe '1 while (s/(<pre>\n.*?)\n(.*<\/pre>)/$1<p>\n$2/ms);s/<\/?pre>//g' htmlfile