#!/usr/bin/perl

use strict;
use warnings;
use Digest::MD5 qw( md5_hex );

while (my $xml = <STDIN>) { 
  $xml =~ s/(\d{11})/md5_hex($1)/eg; 
  print $xml;
}