$name =  = 'Meier,G' . "\x81" . 'nter';
use Text::Iconv;
my $converter = Text::Iconv->new("IBM852", "UTF-8");
$name = $converter->convert("$name");
print ">>>" , $name, "\n";