$/ = \0x8000;
		my @addrlist = ();
		while(<$fh>)
		{
			$block = $_;
			while ($block =~ m{(\x00+)}g)
			{
				unless(length($1) < $FreespaceSize)
				{
					my $t1 = length($1);
					my $t2 = pos($block) - length($1);
					push(@addrlist, $t2);
					push(@addrlist, $t1);
				}
			}
		}
		return @addrlist;