my @array = grep{ $elem =~ /regex/i }@anderes_array;