perl a locale

[Rotty]

zdravim, potreboval bych rozdelit text na slova. pouzivam tento kod:

Kód: [Vybrat]

#!/usr/bin/perl
use strict;
use locale;

my $text="žluťoučký kůň";
printf ($text);
my @slova=split(/\W+/,$text);
foreach (@slova)
{
printf("$_\n");
}
a vysledkem je:

Kód: [Vybrat]

žluťoučký kůň
lu
ou
k
k
predpokladam ze mam spatne nastaveny locale, protoze ve widlich mam vyzkouseny ze kod funguje.
poradte nekdo jak na ne

[Pirkil]

Pro zacatek bych zkusil neco jako:

Kód: [Vybrat]

use utf8;


[ntz_reloaded]

proc ten podivuhodny printf ? o.O