$_ = 'de ad be ef #junk';
my @capture;
while(/\G(?:^|\ )(\w\w)/g) {
    push @capture, $1;
}