while (my $line = <DATA>) {
    if ( $line =~ /^(\S+)/ ) {
        print "$1\n";
    } 
}