I could be way off here but I think you need to escape the '\' like this:

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

SUNADMN
USE PERL