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");