perl, cirilica, preslovljavanje

[orange47]

treba da prebacim cirilicu u latinicu u perlu, ali Lingua::Translit izgleda nema podrsku za srpski. da li je ovako nesto dovoljno:

    
my %trans = (         
'њ' => 'nj',         
'Њ' => 'Nj',         
'љ' => 'lj',         
'Љ' => 'Lj',         
'џ' => 'dž',         
'Џ' => 'Dž',     );    
$text =~ tr/абвгдђежзијклмнопрстћуфхцчшАБВГДЂЕЖЗИЈКЛМНОПРСТЋУФХЦЧШ/abvgdđežzijklmnoprstćufhcčšABVGDĐEŽZIJKLMNOPRSTĆUFHCČŠ/;    
$text =~ s/([њЊљЉџЏ])/$trans{$1}/g;

?