Kösz a figyelmeztetést, az előző kód nem azt csinálja, amit kértél. Nem ártott volna legalább kipróbálnom, bocs...
A helyes megoldás:

$n++ while ($str =~ /Horch/g);