perl -we '$x="j::/tmp/lz/ncak.030610.141654";$x=~/.+\// && print $'\'