$str =~ s/(?:\Q$chompstr\E)+\z//;