print+($%,grep[$%^=$_],glob<>)[$'%($`+<>=~$")]