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