my $num = "1,234,567,890.0001";

$num =~ tr/,//d;
print "$num\n";