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