Посчитать количество строк в переменной

[UltraMax]

Есть переменная, в ней идет текст. В нем несколько строчек. Мне надо посчитать количество строчек в ней, причем не всех, а до определенной строчки, которая 100% есть.
Грубо говоря идет текст

bla bla bla
bla
bla bla bla
RUSSIA

bla bla
bla

Так вот мне надо найти количество строчек до слова RUSSIA

Как это сделать можно?

[arto]

(split "RUSSIA",$string)[0] =~ y|\\n|\\n|

[UltraMax]

arto
у меня уже башка не верит, я тебя не понял ни разу
В какой переменной содержится значение количества строчек? Можно чуть подробнее?

[arto]

# perl -le \'print ((split "RUSSIA",$ARGV[0])[0] =~ y|\\n|\\n|)\' "bla bla bla
bla
bla bla bla
RUSSIA

bla bla
bla
"
3
#

[UltraMax]

arto
Ты издеваешься? Можно человеческим языком сказать?

У меня есть переменная $big в которой есть данный текст.
Что мне нужно написать, чтобы в переменную $counter попало значение этой количества строчек?

[arto]

$counter = ((split "RUSSIA",$big)[0] =~ y|\\n|\\n|);

[UltraMax]

arto
спасибо заработало

Мне не совсем понятно по какому поводу здесь идет разбитие
То что разбивается массив по слову RUSSIA это понятно, но как сюда привязать первый элемент массива и самое главное как понять то, что стоит после =~
Можно объяснить? Заранее спасибо все равно!

[arto]

первый элемент --

что стоит после -- perldoc perlop