$str =~ s/STOCK(?=(?:\|[^|]*){2}$)/BOXXE/;