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