in reply to numbers masking

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

[download]
Perl 6 - the future is here, just unevenly distributed

Replies are listed 'Best First'.
Re^2: numbers masking
by salva (Canon) on May 17, 2012 at 09:53 UTC
    That does not skip the first 6 and last 4 digits but the first 6 and last 4 characters!
[reply]

In Section Seekers of Perl Wisdom