Help for this page

Select Code to Download


  1. or download this
     @line = split (/\s+/, $line);           # Split line on any amount of
    + whitespace
          $TFCNTL_Tax = @line[8];
          $TFCNTL_Tax =~ s/(\$|,)//g;             # Get rid of $ and comma
    +s
          push(@TFCNTL_Tax,$TFCNTL_Tax);          # Save value for later
          print "TFCNTL_Tax=@TFCNTL_Tax\n\n";