Как написать сценарий Perl для поиска строки в файле?

Я хочу написать сценарий Perl, чтобы найти переменную, если она присутствует только в заголовках TEST, а не в FIRST, SECOND или THIRD. Таким образом, перед заголовками ТЕСТА в файле есть N переменных; Но я хочу сопоставить переменные после заголовков ТЕСТА. Если в заголовке ТЕСТА нет переменной, необходимо напечатать переменная не существует в первом ТЕСТЕ (или Второй ТЕСТ или Третий ТЕСТ ).

У меня есть файл, подобный приведенному ниже.

FIRST
there is a variable one

SECOND
there is second variable

THIRD
there is third variable

FOUR
xxx
xxx

FIVE
variable
xxx

TEST1
firstline 001
secondline 002
thirdvariable line 003

TEST2
firstline 001
secondline 002
thirdline 003

TEST3
firstline 001
secondline 002
thirdvariable line 003