$var =~ s/\/[^\/]+//;

##</code><code>##

$var =~ s{/[^/]+}{};