@allcompanies = grep {!/^\Q$co\E$/} @allcompanies;