my @results;
push @results, "$1$2" while $str =~ /(\S+\s+\Q$word\E)(?=(\s+\S+))/g;
print "$_\n" for @results;