diff -Nur --no-dereference e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm
--- e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm	2021-11-15 10:28:23.044000000 -0500
+++ e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm	2021-11-15 10:38:27.355000000 -0500
@@ -180,7 +180,7 @@
         	or $msg = "Error occurred while modifying pseudonym in database.";
 	}
     # Untaint $pseudonym before use in system()
-    ($pseudonym) = ($pseudonym =~ /(.+)/);
+    ($pseudonym) = ($pseudonym =~ /([\w\p{L}.]+)/);
     system( "/sbin/e-smith/signal-event", "pseudonym-create", "$pseudonym",) 
         == 0 or $msg = "Error occurred while creating pseudonym.";
 
@@ -226,7 +226,7 @@
         or $msg = "Error occurred while modifying pseudonym in database.";
 
     # Untaint $pseudonym before use in system()
-    ($pseudonym) = ($pseudonym =~ /(.+)/);
+    ($pseudonym) = ($pseudonym =~ /([\w\p{L}]+.)/);
     system( "/sbin/e-smith/signal-event", "pseudonym-modify", "$pseudonym",)
         == 0 or $msg = "Error occurred while modifying pseudonym.";
 
@@ -276,7 +276,7 @@
         or $msg = "Error occurred while changing pseudonym type.";
 
     # Untaint $pseudonym before use in system()
-    ($pseudonym) = ($pseudonym =~ /(.+)/);
+    ($pseudonym) = ($pseudonym =~ /([\w\p{L}]+.)/);
     system( "/sbin/e-smith/signal-event", "pseudonym-delete", "$pseudonym") == 0
         or $msg = "Error occurred while removing pseudonym.";