in reply to Re^3: Why doesn't this work?
in thread Why doesn't this work?

Even shorter: 
{local $/="\0"; () = <$fh>; print $.}

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom