$num =~ s/,//;