my $holdTerminator = $/;
undef $/;
my $projectA = <MYINPUTFILE>;
$/ = $holdTerminator;
my @lines = split /$holdTerminator/, $projectA;
$projectA = "init";
$projectA = join $holdTerminator, @lines;
print $projectA;
print "\n";