while (<DATA>) {
    $first = (split/\s/)[0];
    print "$first\n";
}