newjersey-ab1.net  agg  nj1-dpta1  net  10
newyork-cd1.net    agg  nyc-dpt1   net  NA

##</code><code>##

....snip


 open (CONFIG, $config_file) || die "Cannot open $config_file:$!\n";

while (my $line = <CONFIG>) {
    chomp $line;
    next if ($line =~ /^\#/);
    my ($router, $cache, $tmp, $as, $sample) = split (' ', $line);
    if ($tmp =~ /(\w+)(.*)\-(.*)dta/) {
        my $host = $1;
        print "$host\n";
    }
}