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

while(<>) { # read one record at a time
    if($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;

        # ... rest of code
    }
}