well i found a better way than ever i think :) please digest this code:

use warnings; 
use strict;   
use diagnostics; 

open (my $file, '<', $ARGV[0]) || die "lifes great when your a noob pr
+ogrammer :) $!"

my @array;

foreach my $line (<$file>) {
    push( @array, $line );
}

foreach my $element (@array) {
    if ( $element =~ "Path" ) {
        print "\n$element";
    }
    elsif ( $element =~ "KB" || $element =~ "MB" ) {
        my ( $md5, $blank, $file, $filesize, $bits ) = split /\s/, $el
+ement;
        print "$md5 $blank $file  $filesize $bits\n";
    }
}
[download]

this eliminates all arrays except for the one, amd it should only be slightly trivial to setup the extraction process from this since i got full path, filename, md5, filesize, blank spaces, KB or MB. to bad i didnt think of this 3 or 4 days ago <.< cz i dont think its gonna get to much lazier than this lol. everything i need is right in that text file :) here is the new file and the other files are somewhere else in this thread;