on $*:TEXT:/youtube.com/watch\?v=([^&]*)/:#: {
  if ($sock(yt)) sockclose yt
  set %yt.link $regml(1)
  set %yt.chan $chan
  sockopen yt www.youtube.com 80
}
on *:sockopen:yt: {
  sockwrite -nt yt GET /watch?v= $+ %yt.link HTTP/1.0
  sockwrite -nt yt Host: www.youtube.com
  sockwrite -nt yt $crlf
}
on *:sockread:yt: {
  if (!$sockerr) {
    var %yt | sockread %yt
    if ($regex(%yt,/<meta name="title" content="([^"]*)">/)) { set %yt.title $replace($regml(1),&amp;,&) }
    if ($regex(%yt,/<div class="watch-view-count">(\d.+)\</div>/)) { set %yt.views $regml(1) }
    if ($regex(%yt,<span class="likes-count">(.+?)</span>)) { set %yt.likes $regml(1) }
    if ($regex(%yt,<span class="dislikes-count">(.+?)</span>)) { set %yt.dislikes $regml(1) }
    if ($regex(%yt,data-name="watch">(.+)</a>)) { set %yt.user $regml(1) }
    msg %yt.chan [1YOU0,4TUBE1,0] Title: %yt.title 14 $+ $chr(149) Views: %yt.views 14 $+ $chr(149) Likes: %yt.likes 14 $+ $chr(149) Dislikes: %yt.dislikes $&
      14 $+ $chr(149) Uploader: %yt.user $+ . | sockclose $sockname | unset %yt.*
  }
}