- $mnem !~ /<dead|<KP_|<U[0-9A-Fa-f]{4}/ or next; # skip non-standard keys
- $mnem =~ s{<([^>]+)> ?}{$keysym{$1} // die "reference to unknown keysym $1\n"}eg;
- $mnem !~ /[^ -\x7F]/ or next; # skip unicode
+ $mnem !~ m/<dead | <KP_ | <U[0-9A-Fa-f]{4}/ or next; # skip non-standard keys
+ $mnem =~ s{<([^>]+)> \h?}{$keysym{$1} // die "reference to unknown keysym $1\n"}eg;
+ $mnem !~ m/[^\x20-\x7F]/ or next; # skip unicode