D:\>perl -i.bak -p -e "s/^(.*)\n/<p>$1<\/p>\n/g" a.html D:\>perl -i.bak -p -e "s/^<p>!!!(.*)<\/p>\n/<h1>$1<\/h1>\n/g" a.html D:\>perl -i.bak -p -e "s/^<p>\s(.*)<\/p>\n/<div>$1<\/div>\n/g" a.html D:\>
D:\>perl -i.bak -p -e "s/^(.*)\n/<p>$1<\/p>\n/g" a.html D:\>perl -i.bak -p -e "s/^<p>!!!(.*)<\/p>\n/<h1>$1<\/h1>\n/g" a.html D:\>perl -i.bak -p -e "s/^<p>\s(.*)<\/p>\n/<div>$1<\/div>\n/g" a.html D:\>