if (grep $_, map $bigstring =~ /$_/, @array) { ...; }