perl -we "my $s = qq[0\n]; printf qq[%s\n], ($s ? 'true' : 'fal
+se');