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

##</code><code>##

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

##</code><code>##

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