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