$ perl -e 'use strict; use warnings; print (1 ? "yes" : "no") . " bar";'
print (...) interpreted as function at -e line 1.
Useless use of concatenation (.) or string in void context at -e line 1.
yes