C:>perl -MO=Deparse,-p -e"@_ ? $param2 = 'Shift' : $param2 = shift;"
((@_ ? ($param2 = 'Shift') : $param2) = shift(@ARGV));
-e syntax OK



(
( @_
? ( $param2 = 'Shift')
: $param2
) = shift(@ARGV)
);
[download]