Как игнорировать любые пустые значения в Perl grep?

Я использую следующее, чтобы подсчитать количество вхождений шаблона в файл:

my @lines = grep /$text/, <$fp>;
print ($#lines + 1);

Но иногда он печатает на единицу больше, чем фактическое значение. Я проверил, и это потому, что последний элемент @lines имеет значение null, и это тоже считается.

Как последний элемент результата grep может иногда быть пустым? Кроме того, как можно решить эту проблему?