Select Code to Download

use strict;
use warnings;

...
my @lines = <$fh>;
my $chars = substr($lines[7], 0, 5);
print "Five first characters are: <$chars>\n";