y/*//-$`||print$_,$/for glob'{\*,|}'x($`-<>=~$"+$')