my @new_list = grep { /regular expression/ } @list;

##</code><code>##

($i)= grep { m/^#/ } $_;
push @new, $i;