my $money = '$123,456.78';
$money =~ tr/$,//d;
print $money;