while ( (my $pos = index($$buffref, "\n")) >= 0 ) {
      print substr($$buffref, 0, $pos + 1);
      substr($$buffref, 0, $pos + 1, '');
    }