Firstly, what a great module, thanks! I've always found it reliable and effective.

It would be handy if string() returned the string read by getline().

Although this does seem to work...

use Text::CSV_XS;
use IO::File; # tell/seek fails if i omit this line

my $file = "1,2,3\n4,5,6\n7,8,9\n10,11,12\n13,14,15";
open (my $io, '<', \$file); # Open filehandle to in memory file
my $csv = Text::CSV_XS->new();

while (1) {

  my $start = tell($io);
  my $colref = $csv->getline($io);
  last unless $colref;

  print "Array: @$colref\n";

  my $length = tell($io) - $start;

  seek($io, $start, 0);
  read($io, my $string, $length);

  print "String: <$string>\n";

}
[download]

What do you think? Would it be possible for Text::CSV_XS to return the string more efficiently?

I've also wondered whether eol would always be limited to a finite set of predefined strings?

Thanks again.
Steve