#!perl -p
s/, /*/g;$_=eval