echo "/home/code/work"|\
perl -pe's|(/[^/]+)|$`$1 |g'

##</code><code>##

perl -pe's|(/[^/]+)|$`$1$"|g' ### $" - DUH!
perl -l40p057e'$_=$;.$_;$;="$_/"'
perl -ne'print$1,$"while m|($&/[^/]+)|'
perl -e'$_=<>;print$1,$"while m|($&/[^/]+)|'
perl -e'@_=<>=~m|(/[^/]+)|g;print@_[0..$_],$"for(0..$#_)'