Add the missing chars like - to your expression.

($x) = $w =~ /^host,\s*([\w-]+)\s*/;
[download]