perl -e "print '_' ^ '/'"
p