use Unicode::Normalize; while (<>) { $_ = NFD($_); # descomponer + reordenar canĂ³nicamente ... } continue { print NFC($_); # recomponer (donde sea posible) + reordenar canĂ³nicamente }