my @extracted = grep { ... } @list;
@list = grep { not ... } @list;