substr($str, 6, $len - 10) =~ s/\d/X/g