perl -ne 'print join(",", eval),"\n> "'