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

##</code><code>##

my $hacklist = "hack.txt";