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

##</code><code>##

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