Select Code to Download

my %IP = (  # create and initialize
    '198.144.186.184' => {
...
$IP{$captured_IP}{count}++;
...
# print structure -- see perldsc

use Regexp::Common qw(net);
...
...
$IP{$break_in_ip}{domain} = $break_in_domain;
$IP{$break_in_ip}{count}++;
...