Win8 Strawberry 5.8.9.5 (32)  Mon 06/06/2022 20:19:26
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

my $path = "/some/3.5.2+tcl/path/3.5.2+tcl/a/b/c";
print "\$path before: '$path' \n";

my $version = "3.5.2+tcl";

my $pos = rindex($path, $version);
# cut everything beyond the match, if there was a match
substr($path, $pos + length($version)) = '' if $pos >= 0;
print "\$path after:  '$path' \n";

^Z
$path before: '/some/3.5.2+tcl/path/3.5.2+tcl/a/b/c'
$path after:  '/some/3.5.2+tcl/path/3.5.2+tcl'