#!perl -n s/,/*/g;print eval $_