#! /usr/bin/perl -w

#########################################################
#
########################################################

use strict;

use Encode;

# binmode(STDIN , ":utf8");
binmode(STDOUT, ":utf8");
# binmode(STDERR, ":utf8");

my $cnt = 100;

while( my $L = <>)
{
	my $dec = decode( "utf8", $L, Encode::FB_QUIET);
	print $dec;

	while( $L && $cnt)
	{
		$cnt--;
		my $c = substr( $L, 0, 1);
		printf( STDERR "Mist!\t%d\t%x\t'%s'\t%s\n", length($L), ord($c), $c, substr( $L, 0, 20) );

		$L = substr( $L, 1);
		my $dec = decode( "utf8", $L, Encode::FB_QUIET);
		print $dec;
	};
};

exit;

while( my $L = <>)
{
	my $dec = decode( "utf8", $L, Encode::FB_QUIET);
	if( $L)
	{
		print STDERR "Mist!\n";
		print $L;

		exit;
		next;

		while( $L)
		{
			print STDERR "Mistschleife\n";
			$L = substr( $L, 1);
			$dec = decode( "utf8", $L, Encode::FB_QUIET);
		};
	};
};