my@r;@l=grep c$_?!push@r,$_:1,@l;

##</code><code>##

my@r;@l=grep!(c$_&&push@r,$_),@l;

##</code><code>##

my@r;@l=grep{!c$_||!push@r,$_}@l;