$ perl -le'print do { "x" if 1 }'
x
$ perl -le'print do { "x" if 0 }'
0