nice work
you can also do it like this as well

on $*:TEXT:/^([!@.])lyrics\s(.+)/Si:#: { 
  if (!$($+(%,lyricsflood,$nick),2)) { 
    set -u3 $+(%,lyricsflood,$nick) on
    sockopen lyrics www.lyrics.com 80 
    sockmark lyrics $+($replace($regml(2),$chr(32),+),|,$iif($regml(1) == @,msg #,.notice $nick)) 
  } 
}
on *:sockopen:lyrics: { 
  sockwrite -nt $sockname GET $+(/search.php?keyword=,$gettok($sock(lyrics).mark,1,124),&what=all&x=0&y=0) HTTP/1.1 
  sockwrite -nt $sockname Host: $+(www.lyrics.com,$str($crlf,2)) 
}
on *:SOCKREAD:lyrics: {
  var %lyrics | sockread %lyrics
  if ($regex(%lyrics,/<td><a href="http:\/\/www.lyrics.com\/artists\/lyric\/(.+)">(.+)<\/a><\/td>/)) { sockmark lyrics $addtok($sock(lyrics).mark,12 $chr(91) 14Lyrics12 $chr(93) 12 $replace($qt($gettok($sock(lyrics).mark,1,124)),+,$chr(32)) - 14Songname:12 $regml(2) $chr(124) - 14URL:12 $+(http://www.lyrics.com/artists/lyric/,$regml(1)),124) }
  if ($regex(%lyrics,/<td><a href="http:\/\/www.lyrics.com\/artists\/name\/.+">(.+)<\/a><\/td>/)) { $gettok($sock(lyrics).mark,2,124) $gettok($sock(lyrics).mark,3,124) - 14Artist:12 $regml(1) $gettok($sock(lyrics).mark,4,124) | sockclose lyrics } 
}

just one of many ways to do this script.