print grep { $_ =~ REGEXP } @list;