#!/usr/bin/perl -w
#
use strict;

while (<DATA>) {

 print if my $que_def = /^QueueManager:\s*$/ ... /^QueueManager:\s*$/;
# print if my $que_def = /^QueueManager:\s*$/ .. /^QueueManager:\s*$/;

}

exit 0;

__END__

ClientExitPath:
   ExitsDefaultPath=/var/mqm/exits

LogDefaults:
   LogPrimaryFiles=3
   LogSecondaryFiles=2
   LogFilePages=1024
   LogType=CIRCULAR
   LogBufferPages=0
   LogDefaultPath=/var/mqm/log
QueueManager:
   Name=venus.queue.manager
   Prefix=/MQHA/venus.queue.manager/data
   Directory=venus!queue!manager
QueueManager:
   Name=craig.queue.manager
   Prefix=/MQHA/craig.queue.manager/data
   Directory=craig!queue!manager
QueueManager:
   Name=ha.qmgr1
   Prefix=/MQHA/ha.qmgr1/data
   Directory=ha!qmgr1
QueueManager:
   Name=test.manager
   Prefix=/MQHA/test.manager/data
   Directory=test!manager