Re^2: regular expression

[Anonymous Monk]

I have to show only fist 6 and last 4 digits in between there can be any number of characters

[moritz]

... and my solution replaces them all by X. Is that not what you want?

If you only want to replace digits in there, you can also say

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

[Crackers2]

Slight variation so you don't need the length:

substr($str, 6, -4) =~ s/./X/g;

[Don Coyote]

Inspiring. Subtracting the sum of the value of the length of the first and last visible digits to establish the variable length of the middle section. ++