print "UID: $1\n"
  if ($url =~ /^http:.*\/ID=(.*)&MyToken=.*$/);

##</code><code>##

push (@uid_list, $1)
  if ($url =~ /^http:.*\/ID=(.*)&MyToken=.*$/);