my $filename = 'some_filename.txt'
my $output_encoding = 'whatever_it_is_that_notepad_wants';

open( OUT, ">:encoding($output_encoding)", $filename ) or die "$filename: $!";

# or, if you are just printing to STDOUT:

binmode( STDOUT, ":encoding($output_encoding)" );