#!/usr/bin/perl -w
#

my @BROKERS;

open (CONFIG, "ubroker.properties") || die "Can't Open ubroker file: $!";

while (<CONFIG>)
  {
    next if /^#/;
    if (/^\[UBroker\.WS\./)
    {
    push (@BROKERS,$_);
    }
  }
chomp @BROKERS;
while (<CONFIG>)
  {
    foreach $b(@BROKERS)
     {
       if (/$b/)
         {
# Here is where I run out of steam
# Begin Metacode
          read each line and push ($_,@"$b") continue to do this until a newline is reached.  When a newline is reached intialize the next $b as an array and repeat the above proccess until all elements of @BROKERS are exhausted.