$path =~ s:[\\/]+$::;