$url=~ m|^(\w+):/*((.*\@)?[^/]+)/(.*)$|;
  $protocol= uc($1);  
  $site= $2;
  $path= $4;