open my $IN,'<:encoding(utf-8)','input.txt';
open my $OUT,'>:encoding(iso-8859-15)','output.txt';

my $line;
while($line=<$IN>)
{
        print $OUT $line;
}

close IN;
close OUT;