c:\@Work\Perl>perl -wMstrict -le
"print $];
 ;;
 my (@streams, @spaces);
 push ((0 ? @streams : @spaces), 'ZIT');
 print qq{(@streams) (@spaces)};
 push ((1 ? @streams : @spaces), 'ZOT');
 print qq{(@streams) (@spaces)};
"
5.014004
() (ZIT)
(ZOT) (ZIT)

c:\@Work\Perl>perl -wMstrict -MO=Deparse,-p -le
"print $];
 ;;
 my (@streams, @spaces);
 push ((0 ? @streams : @spaces), 'ZIT');
 print qq{(@streams) (@spaces)};
 push ((1 ? @streams : @spaces), 'ZOT');
 print qq{(@streams) (@spaces)};
"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
print($]);
my(@streams, @spaces);
push(@spaces, 'ZIT');
print("(@streams) (@spaces)");
push(@streams, 'ZOT');
print("(@streams) (@spaces)");
-e syntax OK