$str =~ s/($chompstr)*\z//;