s{ ^([a-zA-Z]+) }{ $1 . 'X' x ( 14 - length ) }xe;