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