sub is_not_string
{
  my $a = shift;
  my $packed;
  for (split(//,$a)) {
    $packed = 1 if (ord($_) == 0);
    $packed = 1 if (ord($_) > 127);
  }
  return $packed;
}