$_ = 'de ad be ef #junk';
/^(\w\w(?: \w\w)*)/;
my @capture = split ' ', $1;