perl -ple'$a=$_=eval'