Select Code to Download

$xml =~ s/(\<tag\>)(\d{11})(\<\/tag\>)/$1.md5_hex($2).$3/eg;

$xml =~ s{ (<tag>) (\d{11}) (</tag>) }{
   $1 . md5_hex($2) . $3
}xeg;