use strict;
use Encode;
use utf8;

my $string = "üö&auml";

open my $fh, ">:encoding(UTF-8)", $file or die $!;
print $fh $in;