in reply to Parse hostname from HTML header string
my ( $host, $port ) = $header =~ m/^Host:\s*([A-Za-z0-9\.\-]+):?(\d*)/ +mi; [download]
cheers
tachyon