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