My original code:

use utf8;
use open ':std', ':utf8';
use feature 'unicode_strings';

...

for my $file ( @files ) {

    open my $FH, '<', $file or die "Cannot open '$file' because: $!";
    my $size = read $FH, my $data, -s $FH or die "Cannot read from '$f
+ile' because: $!";
    $size == length( $data ) or die "Error reading from '$file'\n";
    close $FH;

...
[download]

This will always result (if $data contains Unicode characters) in dieing with the message "Error reading from '$file'\n".

The solution is to use this instead:

    $size == $data =~ y///c or die "Error reading from '$file'\n";
[download]

Hope this helps.

Please correct me if I am wrong.