$ perl mask_digs.pl
5432 1234 12346 6694
5432 12XX XXXXX 6694

a16-994-332-1234-16
a16-994-3XX-XX34-16

123321123333333
123321XXXXX3333