Select Code to Download

while ($output =~ m/...re.../sg) {
  ... process block ...
}

$re = qr{AMQ8409.*?QUEUE\((.*?)\).*?RQMNAME\((.*?)\).*?RNAME\((.*?)\).
+*?end};

while ($output =~ m/(AMQ8409.*?end)/gs) {
  my $block = $1;
...
  # process block
  # use $hash{QUEUE}, $hash{RQMNAME}, $hash{RNAME}, etc.
}

my %hash;
while (<>) {
...
    # ... add more variables of interest ...
  }
}