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