my @columns = split /\s*/, $line; # or my $col3 = (split /\s*/, $line)[2]