while (<FILE>) {
    ($class) = split /\s+/, $_;
    print $class, $/;
}