--- some stuff above ---

$parser->parsefile(shift @ARGV, ProtocolEncoding => "ISO-8859-1");

--- some stuff inbetween ---

my $converter = Text::Iconv->new("UTF-8","ISO-8859-1");
while (my($key,$value)=each(%attrs))
{
                push (@value_stack, { $key=>$value });
                if ($program_hash{$current_filmid}{$key} eq '')
                {
                        $program_hash{$current_filmid}{$key} = $converter->convert($value);
                } else {
                        if ($key ne "EventId" && $key ne "KanalId")
                        {
                                $program_hash{$current_filmid}{"$key.$value"} = $converter->convert($value);
                        }
                }
}
--- some stuff below ----