$/ = \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;

##</code><code>##

09 43 4A 00 00 00 00 00 00 00 00 00 00 00 FC B0
DD 12 46 33 73 7A 8B 01 00 00 00 00 00 00 98 40
34 3F 79 6D DC 2A 2B 35 FF 90 FA 60 66 58 5A 21
40 06 88 F2 11 EE 65 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 44 88 CC 02
A0 74 75 76 77 09 00 00 00 00 00 00 00 00 00 AA