my $delim = "DELIM";
my %access_count;
while (<DATA>) {
	my $access_string = join($delim, ($_ =~ m/(\d+\.\d+\.\d+\.\d+).*?(\d+\.\d+\.\d+\.\d+)\s(\d+)/));
	print "$access_string\n";
	$access_count{$access_string}++;
}

foreach my $access_string (sort keys %access_count) {
	print join(' - ',
			(split /$delim/, $access_string),
			"[$access_count{$access_string}]"
	) . "\n";
}


__DATA__
%PIX-4-106023 Deny udp src inside 1.1.1.1 1161 dst outside 3.3.3.3 53 by access-group inside_access_in
%PIX-4-106023 Deny tcp src inside 1.1.1.1 1637 dst outside 4.4.4.4 80 by access-group inside_access_in
%PIX-4-106023 Deny tcp src inside 1.1.1.1 2519 dst outside 4.4.4.4 80 by access-group inside_access_in
%PIX-4-106023 Deny udp src inside 1.1.1.1 1161 dst outside 7.7.7.7 53 by access-group inside_access_in
%PIX-4-106023 Deny tcp src inside 1.1.1.1 2519 dst outside 9.9.9.9 80 by access-group inside_access_in
%PIX-4-106023 Deny udp src inside 1.1.1.1 1161 dst outside 9.9.9.9 443 by access-group inside_access_in