Select Code to Download

my @byte_count;
push (@byte_count, 0);
...
{
    printf Out "%08d$sentences[$x]\n", $byte_count[$x];
}

use warnings;
use utf8;
...
seek(FILE, 656, 0);
my $line = <FILE>;
print "$line";