Help for this page
#! /usr/bin/env perl ... $html =~ s/\<\?perl(.*?)\?\>/(sub{$1})->()/gisee; print $html;
<b>Hello World</b><div> <p>Code</p> 1 </div>
<div> <p>Code</p> <b>Hello World</b> </div>