perl -we '$x="/foo/bar/ncak.030610.141654";$x=~/.+\// && print $'\'