#! perl -slw
use strict;

while( <DATA> ) {
    next unless m[^AMQ8409]; ## Skip to the starting condition

    ## Accumulate lines until we match
    $_ .= <DATA> until m[
        QUEUE   \( ( [^)]+ ) \) \s*
        TYPE    \(   [^)]+   \) \s*
        RQMNAME \( ( [^)]+ ) \) \s*
        RNAME   \( ( [^)]+ ) \)
    ]xm;

    ## do something with the captured data
    print( "'$1'$2'$3'" ) if defined $1;
}
__DATA__

##</code><code>##

c:\test>junk
'MQSI.3PL846'MSTBKRQ1'MQSI.3PL846'
'MQSI.3PL944'MSTBKRQ1'MQSI.3PL944'
'MQSI.ADM850'MSTBKRQ1'MQSI.ADM850'
'MQSI.ADMAPTR'MSTBKRQ1'MQSI.ADMAPTR'