sub define_codes_method2 {
    my $language;

    while (<DATA>) {
        s/\s+$//;     # ("chomp" is too OS-dependent)
        next if !/\S/;

        if (/^%language=(.*)/) {
            $language = $1;
        }
        else {
            my ( $code, $descr ) = split /,/;
            $descr =~ s/\\x\{(\w{4})\}/chr(hex($1))/eg; # convert hex values to chars
            $codes_hash{$code}{$language} = $descr;
        }
    }
}