Как присвоить переменную для целого условия в PERL?

Есть некий фрагмент кода

open FILE, '<', $test_txt or die $!;

while (<FILE>) {
    $content = $_;
    if (m/Difference/) {
        print "$diff\n";
    } else {
        if (m/FC:/) {
            print "OK\n";
        }
    }
}

Как присвоить этому условию отдельную переменную, для многократного использования этого условия одной переменной ?