for l in C hu_HU de_DE; do echo $l:; LANG=$l perl -we 'use locale; for $s ("\x{e1}", "\x{151}", "\x{a3}") { for $r (qr/\w/, qr/[[:alnum:]]/, qr/\pL/) { printf qq["\\x{%x}" %s /%s/\n],
ord($s), ($s =~ qr/$r/) ? "=~" : "!~", $r; } }'; done