$str =~ s/\,//g;