perl -i.bak -pe 's/,//g' comma