if( $tmp =~ /\s*<character\s*id=\"\d+\"\s*name=\"($char.*)\"\s*laston.*race=\"(\d+)\".*class=\"(\d+)\"/ ) {
        $char_data{"name"} = $1;
        print $ids{"classes"}{$3}."\n";
        $char_data{"class"} = $ids{"classes"}{$3};        #<-------- hier
        $char_data{"race"} = $ids{"races"}{$2};
}