E:\blead> perl -e "print q§/\\\./§"
/\\./