$ wc -c data
 2753110808 data
$ wc -l data
 2753111 data

##</code><code>##

#!/usr/bin/perl

$FILE = "data";
open (INFILE, "$FILE") || die "Not able to open the file: $FILE \n";
binmode INFILE;

my $map;
read(INFILE, $map, 2147483648);
# Using this read instead, everything works.
# read(INFILE, $map, 2147483630);
BigParse($map);
exit;

sub BigParse {
   my $map = shift;
   print "string length = ", length($map), "\n";
# This fails with "Split loop" error message.
   foreach my $l (split("\n", $map)) {
     print $l;
   }
   return;
}