##
while() {
chomp($_);
$_ =~ s/###FundingOrg\[.*?(?=###)//;
print $_ . "\n";
}
__DATA__
Aero Research Labs.###FundingOrg[###Date______[ Dec 1963
Aero Research Labs.###FundingOrg[ BBC###Date______[ Dec
####
Aero Research Labs.###Date______[ Dec 1963
Aero Research Labs.###Date______[ Dec