add neccessary but not sufficient regex

diff --git a/Convert/YText.pm b/Convert/YText.pm
index e8ea42abef20f1fe16d26d33d42d37bf10e567f5..21955a87bed802440a47e03f9444e04dcfeabb5f 100644 (file)
--- a/Convert/YText.pm
+++ b/Convert/YText.pm
@@ -57,6 +57,9 @@ a regular character. The character '.' also seems mostly permissable.
 =cut
 
 our $digit_string="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+-.";
+
+our $valid_rex=qr{[A-Za-z0-9\+\-\.\=\_\~]+};
+
 our @digits=split "",$digit_string;
 
 sub encode_num($){