next if $hosts =~ /^#/ or $hosts =~ m|[^\w.:/-]|;

ここに虫がいるっぽいけど、
上記、何をやっているんだろう。