Select Code to Download

echo "/home/code/work" |\
perl -nle 'chomp; print $p .= $& while m{ \G (?: [^/]* /+ | [^/]+ \z )
+ }xg'