while (<INPUT>) {
  chomp;
  ($first, $second) = /^(first column)+\s+(second column)+.*/;   # I don't know what should be matched (digits, chars, ..)
  &saveColumns($first, $second);
  print "whole row: $_\n";
}