Select Code to Download

my $holdTerminator = $/;
undef $/;
...
$projectA = join $holdTerminator, @lines;
print $projectA;
print "\n";

use strict;
use warnings;
...
print $projectA;

...