Select Code to Download

# note: system locale works properly
$ LC_CTYPE=fi_FI.UTF-8; export LC_CTYPE
...
$ perl -CSA -e 'use utf8; use open ":std", IO => ":utf8"; use POSIX qw
+(locale_h); print "LC_CTYPE: ", setlocale(LC_CTYPE), "\n"; $str = "sä
+v sov san"; my @arr = $str =~ /\b(\w{3})\b/g; print "", join("|", @ar
+r), "\n";'
LC_CTYPE: fi_FI.UTF-8
säv|sov|san