- printf " %s=\"%s\"\n",$p,decode_utf8($v,0)||$v if $v;
- read_akey($v) if $p eq 'AKEY';
- read_skey($v) if $p eq 'SKEY';
+ if ($v) {
+ my $vv = utf8decode($v)||$v;
+ $vv =~ s/[\x00-\x1F]/_/g;
+ $vv =~ s/[\x80-\x9F]/_/g;
+ printf " %s=\"%s\"\n",$p,$vv;
+ read_akey($v) if $p eq 'AKEY';
+ read_skey($v) if $p eq 'SKEY';
+ }