#!/usr/bin/perl

binmode STDIN, ":utf8";  # covers pipe input
binmode ARGV, ":utf8";   # does not work -- handle isn't open yet

while (<>) { do_whatever( $_ ) }