#---------------------------------------

sub decode_it {
  my $s = shift;
  eval {
    $s = decode('UTF-8', $s, 1);
    1;
  } or do {
    $s = decode('latin1', $s, 1);
  };
  return $s;
}