while (<DATA>) {
   if (length($_) > 10) {
      if ($_ =~ (m/192\.168\./g)) {
         $readlines++;
      }
   }
}

print($readlines, $/);
# prints 3, although you're probably expecting it to be 2.


__DATA__
192.168.0.1
1.192.168.0
12345678901
dfhasfhasdjk
192.168.33.4

##</code><code>##

while (<DATA>) {
   if (length && /192\.168\./) {
      $readlines++;
   }
}

print($readlines, $/);
# prints 3, although you're probably expecting it to be 2.


__DATA__
192.168.0.1
1.192.168.0
12345678901
dfhasfhasdjk
192.168.33.4