use strict;
use warnings 'all';
use Text::CSV_XS;
open STDIN,"c:\\scripts\\20051030.log" or die $!;

 my $columns;

open STDOUT, ">Answers.out" or die "can't redirect stdout";

my $parser = Text::CSV_XS->new ({sep_char => "\t"});

while (<STDIN>)
  {
  next if ! length $_;

  if (! $parser->parse ($_))
    {
    warn "Error parsing: $_";
    next;
    }

  my @columns = $parser->fields();
  next if ! defined $columns[20];
  print "$columns[0], $columns[1], $columns[7], $columns[18], $columns
[19]\n";
  }