use strict;
use warnings;

my $data = <<DATA;
(CSW - Q1)
OMIPMS55:NTTCSWQ1:MQSI.3PL846
OMIPMS55:NTTCSWQ1:MQSI.STATUS
OMIPMS55:NTTCSWQ1:MQSI.3PLXDOCK.STATE
(CSW - Q2)
OMIPMS55:NTTCSWQ2:MQSI.3PL846
OMIPMS55:NTTCSWQ2:MQSI.3PL944
(CSW - Q3)
OMIPMS55:NTTCSWQ3:MQSI.3PL846
DATA

local $/ = ')';
open IN, '<', \$data;
while (defined (my $chunk = <IN>)) {
    chomp $chunk;

    local $/ = "\n";
    open LINES, '<', \$chunk;
    my @lines = <LINES>;
    close LINES;
    pop @lines if $lines[-1] =~ '\(';
    print @lines;
}
close IN;

##</code><code>##

OMIPMS55:NTTCSWQ1:MQSI.3PL846
OMIPMS55:NTTCSWQ1:MQSI.STATUS
OMIPMS55:NTTCSWQ1:MQSI.3PLXDOCK.STATE

OMIPMS55:NTTCSWQ2:MQSI.3PL846
OMIPMS55:NTTCSWQ2:MQSI.3PL944

OMIPMS55:NTTCSWQ3:MQSI.3PL846