Select Code to Download

open(OUT, ">/Users/micwood/Desktop/output.txt");
while (<>) {
...
      if ($award{'entireaward'} =~ m{Dollars Obligated<\/td><td align=
+right>\$([^<]+?)<\/font>}gi){
        $award{'B_dollob'} = $1};