$ perl -le" $_ = shift; print substr $_,0, rindex $_, q!#!" before#after#last
before#after

$ perl -le" $_ = shift; print substr $_,0, index $_, q!#!" before#after#last
before