I would think about either using the more efficient idiomatic slurp (i.e. my $wholefile = do { local (@ARGV, $/) = $filename; <> };) or using the excellent and even more efficient File::Slurp module.