Match at least one alphanumeric followed by a single space character
if ($p =~ /(\w+\s)/){ print "$1\n"; }