$is_blessed = defined($x) && ref($x) && overload::StrVal($x) =~ /=/;

##</code><code>##

 
$is_blessd=defined($x) && ref($x) && (index(overload::StrVal($x),'=')>=0);

##</code><code>##

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