>for /f %q in ('perl -e"print q{foo}") do cd %q