Something

alias YouTube { 
  set %ytube1 $remove($1,http://,www.,youtube,.com)
  set %ychan $chan
  sockClose youtube
  sockOpen youtube www.youtube.com 80 
}
on *:SockOpen:YouTube: {
  sockWrite -nt $sockName GET %ytube1 HTTP/1.1
  sockWrite -nt $sockName Host: www.youtube.com
  sockWrite -nt $sockName Connection: Keep-Alive
  sockWrite -nt $sockName Content-Type: text/html
  sockWrite -nt $sockName $crlf 
}
on *:SockRead:youtube: {
  sockRead %ytube2
  if (%ytube2 == $null) && (%sockread == $null) { 
    msg %ychan 1,0You0,4Tube0,3 Error receiving information.
    set %sockread 1 
  }
  elseif (%ytube2 == $null) && (%sockread != $null) { noop }
  if (<meta name="title" content=" isin %ytube2) { var %decrypt2 $replace(%ytube2,& $+ $chr(35) $+ 39;,$chr(39)) | var %decrypt $replace(%decrypt2,&quot;,$chr(34)) | var %decrypt2 $replace(%decrypt,&amp;,$chr(38)) | msg %ychan 1,0You0,4Tube0,3 $remove(%decrypt2,<meta name="title" content=",">,&amp;quot;) }
  if (<button href="/user/ isin %ytube2) { var %ytemp $noHTML(%ytube2) | msg %ychan Uploaded by: $+ $chr(32) $+ $remove(%ytemp, Subscribe) }
  if (<meta name="description" content=" isin %ytube2) { var %decript2 $replace(%ytube2,& $+ $chr(35) $+ 39;,$chr(39)) | var %decript $replace(%decript2,&quot;,$chr(34)) | var %decript2 $replace(%decript,&amp;,$chr(38)) | msg %ychan Description pulled from YouTube: $+ $remove(%decript2,<meta name="description" content=",">,$amp;$quot;) }
}