$c = &func();
$c ? say "$c found!" : say "None!";

##</code><code>##

$c = (&func() ? say "$c found!" : say "None!");

##</code><code>##

perl -Mstrict -E 'sub func {5}; my $c; my $results = ( $c=func() ? 1 : 2); say $c, "\t", $results'

##</code><code>##

perl -Mstrict -E 'sub func {5}; my $c; my $results = ( $c=func()) ? 1 : 2; say $c, "\t", $results'