Select Code to Download

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

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

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

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