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