use strict;
use warnings;

my $size = 24 * 1024 * 1024;

open my $fh, '<', 'Dictionary2GB.txt' or die "$!";

while ( read( $fh, my $b, $size ) ) {
   $b .= <$fh>;
}

close $fh;