Select Code to Download

while (<DATA>) {
   ($first) = $_ =~ m/^(\S+)/;
...
  Here's a line.

Line five is this one.

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

while (<DATA>) {
    $first = substr $_, 0, index $_, " ";
    print "$first\n";
}