perl -ple\$_=eval