(@values) = $content =~ /A\([^\)]+?,(\d+),\d+\)/g;