> 
>      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;
>            }
> ｵﾏｴﾗどれょ？(`Д´)

ynzcc-\d+p\d+\.ppp\.odn\.ad\.jp
これだ(ﾟДﾟ)ｸﾞﾙｧ

参考：2001/04/15(日)00時02分35秒