instead of : 
$path =~ s/.*\Q$version\E\K.*//s;
I probably would have coded:
$path =~ s/(.*\Q$version\E).*/$1/s;