perl -we 'use English;$x="j:/tmp/lz/ncak.030610.141654";$x=~/.+\// && print $POSTMATCH' ncak.030610.141654 #### perl -we '$x="j:/tmp/lz/ncak.030610.141654";($m = $_) for split "/",$x;print $m' ncak.030610.141654