my ($valgrind, $version);
for (@paths) {
next unless -x;
my $ver = qx/$_ --version/;
if ($ver =~ /^valgrind-(\d+(\.\d+)*)/) {
my ($valgrind, $version);
for (@paths) {
next unless -x;
my $ver = qx/$_ --version/;
if ($ver =~ /^valgrind-(\d+(\.\d+)*)/) {