in reply to Regex host portion of IPv6 address

Work less, use Net::IPv6Addr