Help for this page

Select Code to Download


  1. or download this
    $number =~ /^(\D*\d){6}/g and $number =~ s/\G(\D*)\d(?=(?:\D*\d){4})/$
+{1}X/g;
  2. or download this
    my ($s, $m ,$e) = $number =~ /^((?:\D*\d){6})(.*)((?:\d\D*){4})$/;
$m =~ tr/0-9/X/;
$number = "$s$m$e"
  3. or download this
    $number =~ s|^((?:\D*\d){6})(.*)(?=(?:\d\D*){4})|$1. ($2 =~ tr/0-9/X/r
+)|e;