my $str = '4512872356698';
substr($str, 6, -4, 'X' x (length($str) - 10));
print "$str\n";