Using the match operator to compare strings exactly is overkill, and you got it wrong. I don't think many companies use regexp patterns for names.

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