There's a simple solution to the memory doubling problem:

my $raw = do {
   open(my $fh, '<', $file)
      or die("Could not read file: $!\n");
   binmode $fh;
   local $/;
   \<$fh>
};

$$raw =~ ...; ## etc.
[download]