#!/usr/bin/perl

while(<>) {
  chomp;
  @labels = split(' ',$_);
  print $labels[0] . "\n";
}
