my ($path,$version);

$path = "/a/b/version1/c/d";
$version = "version1";
$path =~ s/$version.*/$version/s;
print($path."\n");

$path = "/some/path/3.5.2+tcl-tk-8.5.18+sqlite-3.10.0/a/b/c";
$version = "3.5.2+tcl-tk-8.5.18+sqlite-3.10.0";
$path =~ s/$version.*/$version/s;
print($path."\n");

##</code><code>##

my ($path,$version);

$path = "/a/b/version1/c/d";
$version = quotemeta("version1");
$path =~ s/$version.*/$version/s;
print($path."\n");

$path = "/some/path/3.5.2+tcl-tk-8.5.18+sqlite-3.10.0/a/b/c";
$version = quotemeta("3.5.2+tcl-tk-8.5.18+sqlite-3.10.0");
$path =~ s/$version.*/$version/s;
print($path."\n");

##</code><code>##

/a/b/version1
/some/path/3\.5\.2\+tcl\-tk\-8\.5\.18\+sqlite\-3\.10\.0