#!/usr/bin/perl
use v5.10;
use Encode;
use Data::Dumper;

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

my $VUOrt0 = 'Köln';
$temp = encode( "iso-8859-1", $VUOrt0 );
say Dumper "========== encode scalar variable ==========";
say $temp, "(", length($temp), ")";

$temp = encode( "iso-8859-1", decode("UTF-8", $VUOrt0) );
say Dumper "========== decode encode scalar variable ==========";
say $temp, "(", length($temp), ")";

if ( $temp =~ /ö/ ) { say "habe 'ö' gefunden"; } else { say "habe 'ö' NICHT gefunden"; }
if ( $temp =~ /\xF6/ ) { say "habe '\xF6' gefunden"; } else { say "habe '\xF6' NICHT gefunden"; }
for ( my $i = 0; $i < length($temp); $i++ ) {
	say substr( $temp, $i, 1), "(", length(substr( $temp, $i, 1)), ")";
}