#!/usr/bin/perl -w
use strict;
for (<DATA>) {
my @line = split(/ /, $_);
print "$line[0]\n";
}

__DATA__
name    alter    wohnort   usw.
max      18       FFM
till        18       Nürnberg
friedel    18      lichtenau
anja      19      salzburg