use warnings;
use utf8;

open (FILE, "<:utf8", "Sentences and byte count.txt") or die "Can't open";

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