>>514
取り出し部分かも

www.2ch.net. (www.2ch.net)
なんて感じに出力されてるし

IPの取り出しが
\d+\.\d+\.\d+\.\d+
じゃなく
@sp = split /\./, 何か
$ip = "$sp[0].$sp[1].$sp[2].$sp[3]";
になってるよかん