print( ( $s =~ m{ \A [[:alnum:]]{6,20} \z }x ) ? "success" : "invalid string" );