$string =~ s/[^0-9.,-]+//gs;