my $xl = Spreadsheet::ParseExcel->new;  # or whatever module/version w
+orks
my $wb = $xl->Parse( $filepath ) or die "$filepath: $!\n";

for my $sheet ( @{$wb->{Worksheet}} ) {
    $sheet->{MaxRow} ||= $sheet->{MinRow};
    for my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ) {
        $sheet->{MaxCol} ||= $sheet->{MinCol};
        for my $col ( $sheet->{MinCol} .. $sheet->{MaxCol} ) {
            my $cell = $sheet->{Cells}[$row][$col];
            my $val = $cell->{Val};

            if ( $cell->{Code} eq 'ucs2' ) {
                $val = decode( "UTF-16BE", $val );

                if ( $val =~ /\p{Han}/ ) {
                    # this cell contains Chinese characters
                }
                # NB: there may be non-ASCII Unicode characters that a
+re not Chinese
            }
        }
    }
}
[download]

First of all, what you call "MSDOS screen" is actually called a "Windows console", possibly running "the Windows command shell".

The message yo are getting indicates you are printing non-bytes to a handle expecting bytes. In this case, you are printing decoded text without telling Perl to encode it. You can use the following to do that:

use Win32 qw( );
BEGIN {
   binmode(STDIN,  ':encoding(cp'. Win32::GetConsoleCP()       .')');
   binmode(STDOUT, ':encoding(cp'. Win32::GetConsoleOutputCP() .')');
   binmode(STDERR, ':encoding(cp'. Win32::GetConsoleOutputCP() .')');
}
[download]

That said, I have doubts about the ability of your console to display Chinese characters. You might need to switch to the console's code page to 65001 (by using chcp 65001) and switch the console's font. That's not without issues.