> ぁぃぁぃに入れるﾌﾟﾛﾊﾞｲﾀﾞ紹介してくれ(ﾟДﾟ)

if($host =~ /kgj\d{3}\.airnet\.ne\.jp|
cs1h\d+\.ppp\.infoweb\.ne\.jp|
flets-tokyo\d-p\d+\.alpha-net\.ne\.jp|
^knocd|
kobe\d+-\d+.ppp-\d\.dion\.ne\.jp|
tjm\d+\.i-chubu\.ne\.jp|
sapporo\d-\d+\.kcom\.ne\.jp|
e\d{6}\.ppp\.asahi-net\.or\.jp|
nttshga\d+\.ppp\.infoweb\.ne\.jp|
^n56cc|
tsuchiura-ppp-|
kawasaki\.mmtr\.ne\.jp|
-unet\.ocn\.ne\.jp|
ynzcc-\d+p\d+\.ppp\.odn\.ad\.jp|
ynzw\d+\.ppp\.infoweb\.ne\.jp|
narashino\d-\d+\.ppp-\d\.dion\.ne\.jp|
ppp\d+\.kawasaki-ap\d\.dti\.ne\.jp|
nttsitm\d+\.ppp\.infoweb\.ne\.jp|
ngya\d+\.ppp\.infoweb\.ne\.jp|
tyfu\dds\d+.tk1\.mesh\.ad\.jp|
ctyfu\dds\d+.tk1\.mesh\.ad\.jp|
ppp8[23]-\d+\.din\.or\.jp|
chiba\d+-\d+\.zero\.ad\.jp|
^nwtcc|
^iwtcc|
tkgw\d+\.ppp\.infoweb\.ne\.jp|
itbs\d+\.ppp\.infoweb\.ne\.jp|
fuj\d+\.airnet\.ne\.jp|
KURcd-\d+p\d+\.ppp\.odn\.ad\.jp|
ntk\d+ds\d+\.tk2\.mesh\.ad\.jp|
\.ip\.xaxon\.ne\.jp|
flets\d+-\d+\.zero\.ad\.jp|
ppp\d+\.hamamatsu-ap\d\.dti\.ne\.jp|
fip-osaka\d+\.sakuranet\.or\.jp|
tremaine\.cc\.uec\.ac\.jp|
(shizuoka|utsunomiya)\d+-\d+\.teleway\.ne\.jp$|
nttaich\d+\.ppp\.infoweb\.ne\.jp$|
(kumagaya|funabashi)\d-\d+\.kcom\.ne\.jp$|
^210\.251\.108\.|
\.hotcn\.ne\.jp$/i){
        print "Content-type: text/html\n";
        print "Location: $envurl?code=pedo\n\n";
        exit;
      }

ここ以外

参考：2001/05/06(日)00時13分00秒