use strict; use Text::Iconv; my $converter = Text::Iconv->new('UTF-8','UTF-8'); my @str = ('galicia','a coruñaa',,'a coruñaa',,'baĂCĂE kasĂCĂD nĂCĂD n msn ĂCĂE ifresini'); push (@str ,' galicia a coruďż˝a '); foreach my $q (@str){ my $result = $converter->convert($q); print "$q ==> $result \n"; } Result:- galicia ==> galicia a coruñaa ==> a coruñaa a coruñaa ==> a coruñaa baĂCĂE kasĂCĂD nĂCĂD n msn ĂCĂE ifresini ==> baĂCĂE kasĂCĂD nĂCĂD n msn ĂCĂE ifresini galicia a coruďż˝a ==> galicia a coruďż˝a