local $/ = \65536;

my $scalar = <FILE>;

print length $scalar;

# prints 65536 (assuming :raw)