in reply to Guess what it does ... and a challenge

perl -e 'sub _{&_}_'