#!/usr/bin/perl
use strict;
use warnings;

chomp(my @file = <>);
my @users;
my @hashes;



#sub listar{
#	while(@file){
#		if($_ =~ /Data Found/g){
#			$_ =~ s/\\par//g;	
#			$_ =~ s/Data Found: //g;
#			printf "$_\n";
#		}
#	}
#}


# Separate Users and add each one @users.
foreach(@file){
	chomp $_;
	if($_ =~ /User=/g){
		$_ =~ s/Data Found: //g;
		$_ =~ s/\\par//g;	
		$_ =~ s/User=//g;
		unless($_ =~ /magela/){
	  		push(@users, $_);		
		}
	}
}

# Separate Hashes and add each one to array @hashes
foreach(@file){ 
	chomp $_;
	if($_ =~ /Pass=/g){
		$_ =~ s/Data Found: //g;
		$_ =~ s/\\par//g;	
		$_ =~ s/Pass=//g;
		push(@hashes, $_);
	}
}



pop @users;
my $n = @users;
printf "Numero de Usuarios: $n\n";
my $h = @hashes;
printf "Numero de Hashes: $h\n";


my $f = 0;
while($f < $n){
		<b>printf "$users[$f]\t$hashes[$f]\n"</b>;
		$f += 1;
	}