$clause= join "|", @terms;
print $1 while m/UP($clause)LB/g;