perl -le"print for split m{[:\\/]+}, shift, 3" C:\y\o\d\a
C
y
o\d\a