$string =~ s/[^\\]*?$//;