s/\d/X/ for (1 .. ($Number =~ tr/0-9//) - 4);