Павел Купцов

На мой взгляд было бы красивее так:

#!/usr/bin/perl -w

use strict;

open(F1, "<","test.txt") || die $!;
while(<F1>)
{
        chomp;
        /^\bValue\b\s+:\s+([A-Z0-9]+)$/g;
next unless $1;
    if ($1 eq "A1")
    {
        print "$_\n" and exit 0;
    }

}
close(F1);

Это во-первых не потребует полного чтения файла (после того как мы нашли значение - выходим из программы), во-вторых меньший расход памяти (вы сперва читаете файл в массив - что не надо, лучше построчное чтение через while())