$string =~ s/-?(?:\d+\.)*\d+(?:,\d+)?//gs;