Select Code to Download

use strict; 
use warnings;
...
{
    print "Position:" ,$position - $spaces, "\n";
}

my $pos=index (join ("",@array),7);