$ perl -Mstrict -E 'say $10 ? 1 : 0; say "foo@10bar"'
0
foobar