#!perl -lp y/,/*/;$_=eval