Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...

    return pos $string;
}

Select or download this

$ pm_number_mask.pl
541321069873210200
...
54 13-21XX XXXXXX02#00
1!2@3#4$5%6^7&8*9(0)-0_9+8=7{6}5[4]3<2>1
1!2@3#4$5%6^X&X*X(X)-X_X+X=X{X}X[4]3<2>1