if( $tainted =~ /\A ( \w{1,16} ) \z/x ) {