Perl in a UTF-8 locale

[Edmund GRIMLEY EVANS]

I have a problem here with Perl v5.8.0 on Red Hat 9. Simplified, my
script looks like this:

while (<>) {
    s/Ä/cx/g;
    print;
}

This works with older versions of Perl, and it works in the C locale,
but it doesn't work here in a UTF-8 locale. I tried putting stuff like
"use bytes" or "no utf8" or "no locale", but it didn't help.

Can anyone suggest a good solution, ideally one that is portable
between different locales and different versions of Perl?


Obviously I could use a wrapper. Currently I'm using this work-around:

unless ($ENV{LANG} eq "C") {
    $ENV{LANG} = "C";
    exec("/path/to/this/script", @ARGV);
}
.)îÅDÅò-|ž‡Ë{±¢v¥–W¯z[­Èb½èm¶Ÿÿ™¨¥žYbžìh®åŠ{±º×ü