foreach my $pwd (split('/\/\','/\foo/\foo1/\foo2'))