Select Code to Download

   use Regexp::Common;

...
   {
      substr($html, $point, 0 ) = $tags{$point};
   }

   use HTML::Parser;

...
   {
      substr($html, $point, 0 ) = $tags{$point};
   }