c:\@Work\Perl\monks>perl -wMstrict -le
"no warnings 'syntax';
 ;;
 0 if my $x = 42;
 print qq{$x};
 ;;
 my @orig = qw(foo bar baz);
 tr{a-z}{A-Z} && printf qq{'$_' } for my @copy = @orig;
 print '';
 print qq{(@orig) (@copy)};
 ;;
 for (0 .. 2) {
   die 'Oops...' if my $x;
   print qq{\$x (still) undefined here} if not defined $x;
   $x = 42;
   print qq{\$x is $x here};
   }
"
42
'FOO' 'BAR' 'BAZ'
(foo bar baz) (FOO BAR BAZ)
$x (still) undefined here
$x is 42 here
$x (still) undefined here
$x is 42 here
$x (still) undefined here
$x is 42 here