my $string = Encode::decode("iso-8859-1","\x{d6}sterreich");

# we want to write a utf-8 file
open my $fh,">:utf8","/some/path" or die $!;
print $fh $string;
close $fh or die $!;