if (defined($hash{key}) && $hash{key} =~ /\d+/) { ... }