Help for this page
$ cat mask_digs.pl #!/usr/bin/perl ... a16-994-332-1234-16 123321123333333
$ perl mask_digs.pl 5432 1234 12346 6694 ... 123321123333333 123321XXXXX3333