perl -wlne'print eval//$@//""'