my @bytes = split(/\./, $ip);
   if ($bytes[2] <= 55 && $bytes[3] <= 55) {
      # ok
   }