perl -e '@}-`-,-`-%-'