sub my_decode
	{
	
	my $what=shift;
	
	my $comment=shift;
	
	my $what_old=$what;
	
	open STDERR,'>>decode_dump.txt';
	
	print STDERR "\n---------------------\n$comment\n---------------------\nORIGINAL:\n---------------------\n";
	
	Dump $what;
	
	utf8::decode($what);$what_decoded_once=$what;
	
	#$what_decoded_once=Encode::decode('utf8',$what);

	print STDERR "\n---------------------\nDECODED ONCE:\n---------------------\n";
	
        Dump $what_decoded_once;
	
	utf8::decode($what);$what_decoded_twice=$what;
	
	#$what_decoded_twice=Encode::decode('utf8',$what_decoded_once);
	
	print STDERR "\n---------------------\nDECODED TWICE:\n---------------------\n";
	
        Dump $what_decoded_twice;
	
	exit if( ($what_old ne $what_decoded_twice) && (!($what=~/[a-z]+/)) && ($comment eq 'player white name') );
	
	return $what_decoded_twice;
	
	}

########################################################
output:
########################################################

---------------------
player white name
---------------------
ORIGINAL:
---------------------
SV = PV(0x256fa7c) at 0xe3a62c
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x12d45bc "\320\245\320\260\321\207\320\260\321\202\321\203\321\200 \320\241\321\203\320\263\321\217\320\275"\0
  CUR = 25
  LEN = 28

---------------------
DECODED ONCE:
---------------------
SV = PV(0x256fb14) at 0xe424cc
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x25ab78c "\320\245\320\260\321\207\320\260\321\202\321\203\321\200 \320\241\321\203\320\263\321\217\320\275"\0 [UTF8 "\x{425}\x{430}\x{447}\x{430}\x{442}\x{443}\x{440} \x{421}\x{443}\x{433}\x{44f}\x{43d}"]
  CUR = 25
  LEN = 28

---------------------
DECODED TWICE:
---------------------
SV = PV(0x256fae4) at 0xe4251c
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x25ab9cc "\320\245\320\260\321\207\320\260\321\202\321\203\321\200 \320\241\321\203\320\263\321\217\320\275"\0 [UTF8 "\x{425}\x{430}\x{447}\x{430}\x{442}\x{443}\x{440} \x{421}\x{443}\x{433}\x{44f}\x{43d}"]
  CUR = 25
  LEN = 28