#!/usr/bin/perl -w

use strict;

my @cleanarray = <>;
foreach (@cleanarray)
{
	print "$1\n" if m/(\S+)/;
}