$w = "host, my-host-name   # My Host Name";

##</code><code>##

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

##</code><code>##

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