Select Code to Download

# use feature ':5.10';

...
my @terms = $str =~ m{ (?= ($term)) }xmsg;

print "$_ \n" for @terms;

AA plus B
D minus EE
...
I times JJ
JJ minus K
RRR plus T