perl -e'print$_,$|--?$/:qq?$"=$"?for%ENV'