@stringsfound=grep {$file=~/$_/i} @array;