use Encode;
use Data::Dumper;
my $temp = encode( "iso-8859-1", 'Köln' );
say Dumper "========== encode ==========";
say $temp, "(", length($temp), ")";