substr($Number, 6, $len - 10) =~ s/\d/X/g; [download]
In reply to Re: numbers masking by moritz in thread numbers masking by Anonymous Monk