Code:
perl -nle'm|([^/]*)$| and print $1' input
perl -nle'm|([^/]*)/[^/]*$| and print $1' input
perl -nle'm|/([^/]*/){2}(([^/]*/){2}[^/]*)| and print $2' input
Or just:
Code:
perl -F\/ -anle'print $F[-1]' input
perl -F\/ -anle'print $F[-2]' input
perl -F\/ -anle'print join "/", @F[3..5]' input
