/$re/ and print while <>

##</code><code>##

while( <> ) {
    while( /\b(\d+\.\d+\.\d+\.\d+)\b/g ) {
        if( exists $ip{$1} ) {
            print;
            last;
        }
    }
}