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