my @matched = $str =~ /\ba\w+\b/g;

##</code><code>##

my $matched = join ' ', $str =~ /\ba\w+\b/g;