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