$num =~ tr/,//d;