#binmode(DATA);
local $/;
$x = <DATA>;
print(length($x), "\n");  # 10, 13 with binmode

__DATA__
foo
<Character 1A here>
bar