$string =~ s{(.*)s1[^/]+/(.*)}{$1$2}; # evtl. mit Modifier /g