$is_blessd=defined($x) && ref($x) && (index(overload::StrVal($x),'=')>=0) && overload::StrVal($x)!~/^Regexp=SCALAR/;