Thank you very much! It worked.

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

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?