Make is_valid_zaddr work, still needs work

lib/Hush/List.pm

@@ -136,8 +136,8 @@ sub exit_unless_hushlist_exists {
 
 sub is_valid_zaddr {
     my ($zaddr) = @_;
-    # TODO: only base58 is valid
-    return ($zaddr =~ m/^zc[a-z0-9]{94}/i) ? 1 : 0;
+    # TODO: only base58 is valid, and length
+    return ($zaddr =~ m/^zc[A-z0-9]+$/) ? 1 : 0;
 }
 
 # show details about a particular (hushlist,zaddr) pair