use strict;
use warnings;
my @srcs = ();

open FILE, "c:/perl/fw.log" or die $!;
	while (<FILE>)
	{
	if (my ($src) =/\bsrc=(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/){push @srcs, $src;}
	}

####
Code to print Top n unique ip's in descending order from @srcs.