Re: numbers masking

[salva]

in reply to numbers masking

$number =~ /^(\D*\d){6}/g and $number =~ s/\G(\D*)\d(?=(?:\D*\d){4})/$
+{1}X/g;

or another somewhat less cryptic approach:

my ($s, $m ,$e) = $number =~ /^((?:\D*\d){6})(.*)((?:\d\D*){4})$/;
$m =~ tr/0-9/X/;
$number = "$s$m$e"

or with a recent perl:

$number =~ s|^((?:\D*\d){6})(.*)(?=(?:\d\D*){4})|$1. ($2 =~ tr/0-9/X/r
+)|e;

[Anonymous Monk]

thnks salva. But can please explain the crytic approach(1st one)

[salva]

Well, IMO, the expression is not so complex, but you need to understand how regular expressions can be chained using \G and what look-ahead assertions do. Both things are explained in perlre.