perl -e'%_=<>;print%_' file