my $num = "1,234,567,890.0001";
$num =~ s/,//g;
print "$num\n";