When opening the file

open my $OUT, '>:utf8', $filename or die $!;
[download]

Or, after opening the file:

open my $OUT, '>', $filename or die $!;
binmode $OUT, ':utf8';
[download]

Or, if you want all your output be in UTF-8:

use open OUT => ':utf8';
[download]

See open, open, binmode for details. You can also use ':encoding(UTF-8)' instead of ':utf8' to let Perl check the validity of the data.

Awesome! Thank you exceedingly much!

Thank you very much! It worked.

Now i have investigated a bit farther on the web and found there is a module

use utf8::all;

seems very interesting to me.

But i got a problem since i have included it:

utf8 "\xB4" does not map to Unicode (pointing to line 8, please read farther)

on running my script1, where i set:

use utf8::all;
require 'script2';
[download]

In the script2 i have:

1 # again
2 use utf8::all;
3
4 sub openfile{
5    my $file=shift @_;
6    my $cont;
7    open my $fh, '<', $file || die "sopen: Cann't open  $file  $!";
8    do{
9        $cont.=<$fh>;
10    }until( eof( $fh ) );
11    close $fh;
12    return $cont;
13}
[download]

So, why is it so?

Without seeing the contents of the file, I cannot tell, but it seems it contains some bytes that are not UTF-8.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ