#! perl
use strict;
use warnings;

my $x = 42;

do { print "Hello "; print "world!\n"; } if 7 < $x;

43 > $x ? do { print "Yes, "; print "it is!\n";    } :
          do { print "No, ";  print "it isn't!\n"; };

##</code><code>##

12:46 >perl 865_SoPW.pl
Hello world!
Yes, it is!

12:46 >