Select Code to Download

perl -MO=Deparse  -e 'sub Foo() {}; (time ? @a=() : $a) = Foo();'

sub Foo () {
    
}
time ? @a = () : $a = Foo;

perl -MO=Deparse  -e 'sub Foo() {}; (time ? @a : $a) = Foo();'

Assignment to both a list and a scalar at -e line 1, near ");"