open(my $fh_in,  '<:encoding(UTF-8)', 'C:\\data.in") or die $!;
open(my $fh_out, '>:encoding(UTF-8)', 'C:\\data.out") or die $!;
while (<$fh_in>) {
    chomp;
    # ...
    print $fh_out "$_\n";
}