Re: regular expression

[trizen]

in reply to regular expression

Regex:

my $str = '4512872356698';
$str =~ s/^\d{6}\K\d+(?=\d{4})/'X' x ($+[0] - $-[0])/e;
print "$str\n";

Substr:

my $str = '4512872356698';
substr($str, 6, -4, 'X' x (length($str) - 10));
print "$str\n";