- [qw/^^ ^0 ^0 ^0 ^0 ^0 ^0 { [ ] } \\ ^0 /],
- [qw{ ° ! " § $ % & / ( ) = ? ` }],
- [qw/ ^ 1 2 3 4 5 6 7 8 9 0 ß ´ /],
+ [qw/^^ ^0 ^0 ^0 ^0 ^0 ^0 { [ ] } \\ ^0 /],
+# [qw{ ° ! " § $ % & / ( ) = ? ` }],
+ [$ascii ? '^0' : '°', qw{ ! " }, $ascii ? '^0' : '§', qw{ $ % & / ( ) = ? ` }],
+ [qw/ ^ 1 2 3 4 5 6 7 8 9 0 /, $ascii ? ('ss', '^0') : ('ß', '´') ],