>>224
範囲内に無いのが正解というのはおいといてw

Perlは知らんが、IP Addressをドットで分割して、
sprintf("02x%02x%02x%02x", ip[0], ip[1], ip[2], ip[3])
みたいな文字列に変換して比較するとか。

あるいは、ヘルパーライブラリとかあるんじゃないの？