use File::Stream;
my $stream = File::Stream->new($filehandle);

$/ = qr/\s*,\s*/;
print "$_\n" while <$stream>;

##</code><code>##

use File::Stream::Improved;
$/ = qr/regex/;
my @records = <HANDLE>;
# where HANDLE might also be $handle