while (<DATA>) {
   ($first) = $_ =~ m/^(\S+)/;
    print "$first\n";
}

__DATA__
This is a line.
Another line is here.
  Here's a line.

Line five is this one.