よくわかんないから下の方一気に

# if($hhh =~ /\.iij4u.or.jp$/) {return 1;}
# if($hhh =~ /\.bmobile.ne.jp$/) {return 1;}
# if($hhh =~ /\.fiberbit.net$/) {return 1;}
# if($hhh =~ /\.cts.ne.jp$/) {return 1;}
# if($hhh =~ /\.scn-net.ne.jp$/) {return 1;}
# if($hhh =~ /\.au-net.ne.jp$/) {return 1;}
# if($hhh =~ /\.aitai.ne.jp$/) {return 1;}
# if($hhh =~ /\.oct-net.ne.jp$/) {return 1;}
# if($hhh =~ /\.spmode.ne.jp$/) {return 1;}
# if($hhh =~ /\.tnc.ne.jp$/) {return 1;}
# if($hhh =~ /\.spacelan.ne.jp$/) {return 1;}
# if($hhh =~ /\.au-net.ne.jp$/) {return 1;}
# if($hhh =~ /\.megaegg.ne.jp$/) {return 1;}
# if($hhh =~ /\.alpha-net.ne.jp$/) {return 1;}
# if($hhh =~ /\.zaq.ne.jp$/) {return 1;}
# if($hhh =~ /\.eaccess.ne.jp$/) {return 1;}
# if($hhh =~ /\.tac-net.ne.jp$/) {return 1;}
# if($hhh =~ /\.toshima.ne.jp$/) {return 1;}
# if($hhh =~ /\.icntv.ne.jp$/) {return 1;}
# if($hhh =~ /\.dti.ne.jp$/) {return 1;}
# if($hhh =~ /\.uqwimax.jp$/) {return 1;}
# if($hhh =~ /\.em-net.ne.jp$/) {return 1;}
# if($hhh =~ /\.prin.ne.jp$/) {return 1;}
# if($hhh =~ /\.e-mobile.ne.jp$/) {return 1;}
# if($hhh =~ /\.emobile.ad.jp$/) {return 1;}
# if($hhh =~ /\.panda-world.ne.jp$/) {return 1;}
# if($hhh =~ /\.mopera.ne.jp$/) {return 1;}
# if($hhh =~ /\.maido3.cc$/) {return 1;}