perl -p -e 1