my columns = 4;  
my $start = 9;
my @line = (split(/[\s]+/,$line))[$start..($start - $columns+1)];