@foo = grep {$_ =~ /qux/} @bar;