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