Well you need to split the line into words and test the IP field.

I can't tell what your field separator is (space or tab) and if the IP is always at the same position.

So try @fields = split /\t/, $line and print $line if grep { your_test($_) } @fields ( tab separator, IP position unclear)