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