my (@s) = grep $_, m{ big regex here }gx;