my $data;

read( $fh, $data, 280 );  #read in initial 280 bytes.

while( my $count = $data =~ s/\n//g ) {
    read( $fh, $data, $count, length $data );
}