if ($form{$key} && $form{$key} =~ /\w+/) { # ...