$x = "ack thpt barf";
@fields = split " ", $x;
print $fields[0], "\n";