if (/^[[:allnum:]]{1,13}$/){
              =~ s/^([[:allnum:]]{1,13})$/$1.'X'/
}