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