If you only want to replace digits in there, you can also say
substr($str, 6, $len - 10) =~ s/\d/X/g [download]
In reply to Re^3: regular expression by moritz in thread regular expression by Anonymous Monk