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";