while(<DATA>)
{
    my @c = split /   /, $_;
    # ...
}