c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 42;
 ;;
 sub { print qq{Hello }; print qq{world!}; }->() if 7 < $x;
 ;;
 43 > $x ? sub { print qq{Yes, }; print qq{it is!};     }->()
         : sub { print qq{No, };  print qq{it is not!}; }->()
         ;
"
Hello
world!
Yes,
it is!