The answers so far are right on. Also, if you're only interested in getting the first column, you don't need to use split; you could just use a regex to grab it:

while (<FILE>) {
    my ($class) = /(\S+)/;
    print "$class\n";
}
[download]

-- Mike

--
just,my${.02}