With:
use strict;
use warnings;
use utf8;
use Encode qw/is_utf8 decode/;
my $junktext =
"\x{0142}\x{e7}\x{263a}\x{0104}\x{263a}\x{0104}re\x{e7}enu\x{263a}";
my $matches = ($junktext =~ s/(\x{263a})/* was smily */gi);
print $matches . " = " . $junktext;
On 5.8.3 I get:
Wide character in print at unicode.pl line 8.
3 = ÅÃ* was smily *Ä* was smily *ÄreÃenu* was smily *
So it appears that it works properly for me. Maybe you should try the
latest version of perl...
Jonathan Paton
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
