use Scalar::Util qw (blessed); if (blessed($value) and $value->isa('Node')) { # }