$string =` s/.*(\d+),(\d+).*/$1.$2/;