$ cat t.pl
#/usr/bin/perl
use strict;
use warnings;
use feature ':5.10';

my $t = "1,234,567.89";
$t =~ s/,//g;
say $t;

$ perl t.pl
1234567.89