in reply to s and replace
____________s/^\Q$config{home}$user{site_id}\E//, print "$_\n" for finddir("$config{home}$user{site_id}");
Makeshifts last the longest.
In Section
Seekers of Perl Wisdom
in reply to s and replace
____________s/^\Q$config{home}$user{site_id}\E//, print "$_\n" for finddir("$config{home}$user{site_id}");