こんなんでてきました。@係。
($response_time, $ip, $recv) = &get_http($host, 'GET', "/$dir/", 15, "Range: bytes=0-3071n"); # 3072bytes だけ読み込み。
next if $recv =~ /Time out/; # 時間切れはパス。

# <title>2chbbs..</title>があれば移転と判定してみりる。
if ($recv =~ m#<title>(domo2|2chbbs)..#) {
# 移転先を採取。
my ($new_host, $new_dir) = $recv =~ m|href="http://(.+?)/(.+?)/?"|; # Location: を使っているところはないみたい。。。