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