use strict;
use warnings;

use open ':std', ':locale';

use Encode qw( );

my $log = 'log';

open(my $fh, '<:raw:perlio', $log)
   or die("Can't open log file \"$log\": $!\n");

while (<$fh>) {
    s/\r?\n\z//;
    my $data = (split(/ /, $_, 4))[3];
    my ($text) = eval { decode("UTF-8", $data, Encode::FB_CROAK) }
        or next;
    print($text);
}