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;
           }

ｵﾏｴﾗどれょ？(`Д´)