前スレッドはパーミションが0400あたりに変わったのね(´･ω･`)
↓を書いてみようかと思ったのだけれども。。。
[]は文字クラスを意味しています。
そうでなければ、、、
m{¥w|¥.|:|/|-}
と描きます。
そして[^〜]と描くと^以降「以外の物」（not扱い）になります。
よって、next if $hosts =~ m|[^¥w.:/-]|は、、、
$hosts の中に
¥w(0-9A-Za-z_/)
.
:
/
-
以外の物が含まれていたらnextする
になります。