which date | perl -pe "s|/|\\|g"