#!/usr/bin/perl -wn
use strict; 
print((split(' '))[0],"\n") unless($_ =~ /^\s+$/);