#!/usr/bin/perl -w

use strict;

my @line = split(" ",$_);
print "$line[0]\n";
$_ = '';