Select Code to Download

use strict;
use warnings;

use File::Slurp qw( read_file );
my $projectA = read_file('projecta.txt');
my $projectB = read_file('projectb.txt');

sub read_file {
   my $filename = shift;
...

   return <$fh>; # enjoy auto-close of $fh :)
}