%reqs; @reqs{ @reqs } = ();

for( @lines ) {
    if( /^\*R/ && $_ !~ /BADSTRING/ && exists $reqs{ $_ } ) {
        # do something
    }
}