Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl -w
...
      if ($award{'entireaward'} =~ m{Current Contract Value(.*?)\$([^<
+]+?)<}gi){
        $award{'C_currentconvalue'} = $2};
  2. or download this
        print
       qq{Award Number: $award{'A_awardno'}\n},
...

close OUT;