my @x = grep({$_ =~ /foo/} @list);