binmode $fh, ':pop';
See PerlIO.
In reply to Re: Using pragma utf8::all in processing non-utf data. by daxim in thread Using pragma utf8::all in processing non-utf data. by humble