if (($lines[$y]=~/^\*R_/) && ($lines[$y]!~/BADSTRING/)
     && grep $lines[$y] =~ $_, @reqs)