Re: Out of Memory in Perl

[Cristoforo]

open my $in, '<:raw', 'Sample_1.txt' or die;
open my $out, '>:raw', 'Google_1' or die;

I don't think using the raw layer buys you anything - your files are text files and I think the raw layer is for reading binary files mainly, but then I am not certain. I've never used it. The common form would probably be better (unless you have a reason to use raw).

open my $in, '<', 'Sample_1.txt' or die $!;
open my $out, '>', 'Google_1.txt' or die $!;