Select Code to Download

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

{   package XML::XSH2::Map;
    use Digest::MD5 qw( md5_hex );
...
}
ls / ;
__XSH__