Select Code to Download

$octet ||= $_ if /($hacklist =~ m~((\d{1,3}\.){3}\d{1,3})~)/;

my $hacklist = "hack.txt";