my $debug_liste = "Titel = $titel = "; my $hex_output; my @values2 = split(undef,$titel); foreach my $val (@values2) { $hex_output .= ord($val)." "; } if( is_utf8($titel) ) { $debug_lise .= "$hex_output = Flag ON"; } else { $debug_lise .= "$hex_output = Flag OFF"; } open (DATEI, ">>/www/tmp_share/log_ale/logdat.log") or die $!; print DATEI "\n $debug_lise \n"; close (DATEI);