seek (OUT,2,1);
          read (OUT, my $num,4);

##</code><code>##

     if (/^(.*?)$delim\s\s(....)(.*)$/) {