if ($rc=$ref->getc) { .... }

##</code><code>##

   if ($rc=$ref->getc!~/./) { ... }