my $binmode = 1;

while (<>) {
   binmode ARGV, ":utf8" if $binmode;
   $binmode = eof;   # Don't add parens!

   do_whatever($_);
}