s/^\Q$config{home}$user{site_id}\E//, print "$_\n" for 
finddir("$config{home}$user{site_id}");