while (<READFILE>) {
      chomp;
      @columns = split/\s{2,}/g, $_, 7;
}