$version = quotemeta("3.5.2+tcl-tk-8.5.18+sqlite-3.10.0");
$path =~ s/($version).*/$1/s;