my ( $host, $port ) = $header =~ m/^Host:\s*([A-Za-z0-9\.\-]+):?(\d*)/mi;