perl -e "while(<STDIN>){ print eval, qq|\n| }"