"... easier to use split..."

Yes. Perhaps even more simplified?

<DATA>;

while (<DATA>) {
    chomp;
    my @cols = split;
}
[download]

Regards, Karl