#!/usr/bin/perl -w

## Perl Script to create a CSV out of Zbot/Zeus Drop Server Files


use strict;

my $base_dir = 'Directory/where/files/are/located/';
my @files = `find $base_dir -type f -name \"reports.txt\"`;	

#open (STDOUT, ">> filename_you_choose.csv");


$/= ""; 


if (-e <@files>){
	foreach my $line (@files){
		open(DATA, $line) || die("Could not open file!");
		while (<DATA>) {
			while (/ipv4\=(.*?)\s.*country\=(.*?)\s.*os_version\=(.*?)\,\s.*path_source\=(.*?)\s/smig){
			print "$1, $2, $3, $4\n"	
			}
		}
	}	
}