my $file_to_read = "./stats.log";
  open(my $in, "< $file_to_read") or die "Can't open file";
  while(<$in>)
  {
	#print <$in>;
	#print "\n\n";
	if(<$in> =~ /(qdisc\s\w*\s\w+\S\d*|class\s\S*\s\w+\S\d*)\s+.*\s*(Sent\s\d+).*(dropped\s\d+).*(overlimits\s\d+)(\S|\S*.*\s*.*)/ )
	{
		print "$1 $2 $3 $4\n";

	}

 }