my $num = "1,234,567,890.0001";
my $new_num =~ s/(\d),(\d\d\d)/$1$2/g;
print "$new_num\n";