Try this:
Code:
var %d, %s = $regsub(%r,/^.*?<a href="(.+?)".*/,\1,%d)


or this:
Code:
var %d = $regex(%r,/<a href="(.+?)"/), %d = $regml(1)

The captured subpatterns are represented by \1, \2, \3 etc.