use strict;
use warnings;

print "Perl version $]\n";

my $str = "1 plus 2 equals 3 but in this example, AX plus BY equals CZ, DA plus EBCDEF plus FGH equals G and H plus I plus J plus K equals L and I wonder what one gets from 7 plus Z";

my $word = "plus";

my @results = $str =~ m{ (?= (\S+ \s+ \Q$word\E \s+ \S+) ) }xmsg;

print join("\n", @results), "\n";