#!/usr/bin/perl -w

use strict;

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

##</code><code>##

#!/usr/bin/perl -w

use strict;

my @cleanarray = <>;
foreach (@cleanarray)
{
        # The regex always matches so there's no need
        # for a conditional.
	m/(\S*)/;
	print "$1\n";
}