in reply to Search and replace the word in Column 16

another suggestion - try Larry's a2p: 
# a2p
$16=="STOCK" {$16="BOXXE"}

[download]
it'll give you the piece of code you need.

Enjoy,
Mickey

In Section Seekers of Perl Wisdom