Can we give &c a prototype of ($)? my@r;@l=grep c$_?!push@r,$_:1,@l; 33 characters. Update: or: my@r;@l=grep!(c$_&&push@r,$_),@l; also 33 characters. Update: or: my@r;@l=grep{!c$_||!push@r,$_}@l; also 33 characters. (and I'm having a hard time counting)

        - tye (but my friends call me "Tye")