open ( IPS, '<', "GIS_DEV_IPS.txt" ) || die "can't open IPS!";
open ( RULES, '<', "rules.txt" ) || die "can't open file!";

@IPS = <IPS>;
close (IPS);

chomp (@IP);

while($line = <RULES>) {

    foreach  $IP (@IPS) {

        if ($line =~ $IP) { 
            print $line;
        } 
    }
}
exit;