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