use strict;

my $Number = 4512872356698;

print $Number."\n";

$Number =~ s/^(\d{6})(\d{3})(\d{4})$/$1XXX$3/; 

print $Number."\n";

exit 0;