open(OUT, ">/Users/micwood/Desktop/output.txt");
while (<>) {
	s/\r//g;
	s/\t//g;	
	s/(<h4>Award\s\#\d+<\/h4>)/\nEND-OF-DOCUMENT\n$1/g;
	s/(<!-- \/noindex --><\/font>)/\nEND-OF-DOCUMENT\n$1/g;
print OUT "$_";}
close OUT;

my $novalue = '.';               # temp value
my $temp = '.';               # temp value
my $awardhashref= ();

open (IN, "/Users/micwood/Desktop/output.txt");
open(OUT2, ">/Users/micwood/Desktop/output2.csv");

my $allDocs = do
   {
       local $/ = 'END-OF-DOCUMENT';
       <IN>;
   };

my $rxExtractDoc = qr
   {(?xms)
           (<h4>Award\s\#(\d+)<\/h4>(.*?)END-OF-DOCUMENT)   		
   };

while ($allDocs =~ m{$rxExtractDoc}g )
{
    my %award = (); # award hash
    
    $award{'entireaward'}= $1;
    $award{'A_awardno'}= $2;
    $award{'entireaward'}=~ s/\n//g;
  	if ($award{'entireaward'} =~ m{Dollars Obligated<\/td><td align=right>\$([^<]+?)<\/font>}gi){
		$award{'B_dollob'} = $1};