use Encode; open(my $iso,'<:encoding(iso-8859-15)','iso.txt'); open(my $utf,'>:utf8','utf.txt'); while(<$iso>){ print $utf $_; } close($utf); close($iso);