#!/usr/local/bin/perl
{
open (CONFIG, "/home/rcastill/perl/newsdist.conf") || die"Can't open Config. file: $!";

while (<CONFIG>){
      next if (/^#/ || /^\s*$/ ) ;
      chop ;
      s/^\s+//g;
      s/\s+$//g;
      $strip = $strip.$_ ;
     }
@strip = split (/;/, $strip);
foreach $line (@strip) {
        $line =~ /^([^ ]*): * \(([^ ].*?)\)/;
        @{$1} = split (/,/, $2);
        if (!$#{$1}) {${$1} = $2};
       }
};1