Help for this page
s/(<a href="[^"]+">(\d+)<\/a>)/[$2]/g;
s/(a href="[^"]+">(\$\w+|\d+)/[$2]/g;
local $_ = "0A72656B636148206C72655020726568746F6E41207473754A"; while(s/..$//) { print chr(hex($&)) }