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