sub _stringlike {
  return 1 unless defined $_[0] && ref $_[0];
  return 1 if (blessed $_[0]) &&
    eval {
      (("$_[0]" eq "$_[0]") && (($_[0] cmp $_[0])==0))
    };
  return;
}