perl -E 'sub result { return 1 if "0" } say result'

##</code><code>##

0

##</code><code>##

perl -E 'sub result { return 1 if "0 but true" } say result'

##</code><code>##

1