if ($goodguesses && ($whatever =~ /[$goodguesses]/) {...} #### $goodguesses = undef;