#!/usr/bin/perl -w

use strict;
use locale;
use POSIX qw(locale_h);

setlocale(LC_CTYPE, 'hr_HR');
setlocale(LC_COLLATE, 'hr_HR');

my $text = "foo čevapčić bar";
print join(", ",sort split(/\W/,$text)),"\n";