# !usr|bin|perl -w

open(FILE1,"$ARGV[0]");
@array1=<FILE1>;
close(FILE1);

foreach (@array1)
  {
#       next if ($_=~/(\s+$)/);                
my @t =split ("\s",$_);
if ($t[0]=~/(\w*\d*)/)
#(\s*)(\w*\d*)/){
{
 if ($t[1]=~/(\w*\d*)/)
{

#{

next if ($t[1]=~/(^\s+$)/);
}

print "$1 \n";

  }

}


    exit();