my @index;
do {push @index, tell FIN} while <FIN>;
pop @index;

##</code><code>##

seek FIN, $index[4], 0;
print FOUT scalar <FIN>;