binmode STDIN, ':encoding(UTF-8)';

# then you can do:
while (<STDIN>) { 
   # work with $_ here
}