#!/usr/bin/perl

use strict;
use warnings;

my $input  = "https://raw.githubusercontent.com/StevenBlack/hosts/master/hosts";
my $output = "ads.conf";

open my $IN, "-|", "curl $input" or die "open error $input: $!";
open my $OUT, ">", $output or die "open error $output: $!";

while ( <$IN> ) {
  if ( /^0\.0\.0\.0 (.*)$/ ) {
    print {$OUT} "local-zone: \"" . $1 . "\" redirect\nlocal-data: \"" . $1 . " A 0.0.0.0\"\n";
  }
}

close $IN;
close $OUT;