open(INF,"<:encoding(utf-8)",$infile);
open(OUTF, ">:encoding(iso-8859-1)", $outfile);
while(my $line = <INF>){
# do something with $line
}
close(INF);
close(OUTF);