Select Code to Download

use strict;
use warnings;

Use of uninitialized value in string eq

map {if($_ =~ /^(#)?(10\.10\.1\.2.*)/){$_ = $1 eq '#' ? $2 : "#$2";}} 
+@Output;

print Out @Output;

use strict;
use warnings;
...
   atomic_update( $hostfile, \@Output );
}
print "There were $nchanges changes made to file '$hostfile'\n";

   s/^#(?=10\.10\.1\.2)//
   s/^(?=10\.10\.1\.2)/#/