#!/usr/bin/perl

use strict;
use warnings;

my @reg = do { local $/ = "\n\n"; <DATA> };

for my $regentry (@reg) {
    print $regentry if $regentry =~ m/TEST2/;
}

__DATA__
[HKEY_LOCAL_MACHINE\SOFTWARE\OJ\TEST1]
"AllowMultilineFieldsInJob"="False"
"AmountRetries"="3"
"CPATTimeOutSeconds"="300"

[HKEY_LOCAL_MACHINE\SOFTWARE\OJ\TEST2]
"AllowMultilineFieldsInJob"="False"
"AmountRetries"="3"
"CPATTimeOutSeconds"="300"

[HKEY_LOCAL_MACHINE\SOFTWARE\OJ\TEST3]
"AllowMultilineFieldsInJob"="False"
"AmountRetries"="3"
"CPATTimeOutSeconds"="300"

[HKEY_LOCAL_MACHINE\SOFTWARE\OJ\TEST4]
"AllowMultilineFieldsInJob"="False"
"AmountRetries"="3"
"CPATTimeOutSeconds"="300"