Help for this page
if ($rc=$ref->getc!~/./) { ... }
if (( $rc = $ref->getc ) !~ /./ ) { ... }
if ( defined( $rc = $ref->getc )) { ... }