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