Select Code to Download

my $raw = do {
   open(my $fh, '<', $file)
...
   local $/;
   <$fh>
};

my $raw;
{
...
   local $/;
   $raw = <$fh>;
}