Select Code to Download

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

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

__OUTPUT__

foo
foo1
foo2