$results[$i] =~ m/(\w*)\s/;
print "$1:\n";