echo "/home/code/work"|perl -lane 'while(m#([^\/]+)#g) {print "$1";}'