od -x x.data
0000000 8181 8282 8383 000a

##</code><code>##

use strict;
use warnings;

my $fh;
open ($fh, "<:utf8", "x.data");
my $img = '';
while (<$fh>) {$img .= $_;}