my %w1252_to_java = map {
    chr($_) => sprintf("\\u%04x", decode "Windows-1252", chr)
} 0x80 .. 0xff;

...

$md->{$column} =~ s/([\x80-\xff])/$w1252_to_java{$1}/g;