my $len = length $Number;
substr($Number, 6, $len - 10) = 'X' x ($len - 10);