my @results = grep { !/$pattern/ }, @array;