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