open FH, '+<=7';
my $line = <FH>;       # or whatever