Doing numbered changes in a buffer

[gamename]

Hi,

I have a tcl file with lots of messages which are about as descriptive
as this:

puts "something went wrong"
...
puts "something went wrong"

Is there any way to do a string replace in the buffer such that each
instance of "puts" would be assigned a unique message number? For
example:

puts "001 - something went wrong"
...
puts "002 - something went wrong"

TIA,
-T