open IN, "< $list" or die "can't read $list: $!";
while (my $line = <IN>) {
  chomp $line;
  my $out = join ".", (split '/', $line)[-1,-2];
  my $dns = DNS::ZoneParse->new($line);
  # ...
}