binmode(STDIN, ':encoding(UTF-8)');
while (<STDIN>) {
   ...
}