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