Select Code to Download

        $data =~ s/
                    (                     # Capture to $1
...
                        >                 #     Final >
                   )
                 /$1 . decode_entities($2) . $4/gsexi;

$data =~ s/(<a\s(?:[^>](?!href))*.?href\s*)(&\#61;\s*(&[^;]+;)?(?:.(?!
+\3))+.?(?:\3)?)([^>]+>)/$1.decode_entities($2).$4/gsei;

$number =~ /((?:[\d]{1,6}\.[\d]{0,5})|(?:[\d]{0,5}\.[\d]{1,6})|(?:[\d]
+{1,7}))/;