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

##</code><code>##

foreach my $pwd (split(/\\/,'\foo\foo1\foo2')) {
    print $pwd, "\n";
}

##</code><code>##

__OUTPUT__

foo
foo1
foo2