my ($userhome) = ($path =~ m!^/home/([^/]+)!);