my $allDocs = do
   {
       local $/ = "<hr>\r";
       <>;
   };

my $rxExtractDoc = qr
   {(?xms)
           (<h4>Award\s\#(\d+)(.*?)<hr>)  
   };

while ($allDocs =~ m{$rxExtractDoc}g )
{
    my %award = (); # award hash
   	$award{'record'}= $1;
    $award{'A_awardno'}= $2; 
   	$award{'entireaward'}= $3;
#    $award{'entireaward'}=~ s/\n//g;
    $award{'entireaward'}=~ s/\t//g;
    $award{'entireaward'}=~ s/\r//g;
  
  	if ($award{'entireaward'} =~ m{Dollars Obligated(.*?)\$([^<]+?)<}gi){
		$award{'B_dollob'} = $2};