split(' ') can be used to emulate awk's default behavior (I think..)
You can try something like:

my @cleanarray;
open(PH,"xcommand|") or die "Can't open xcommand: $!";
while (<PH>) {push @cleanarray, (split(' '))[0];}
close (PH);
[download]

/brother t0mas