perl -MO=Deparse,-p yourscript.pl

##</code><code>##

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