Find a word and increment the number in the word & save into new files

I am looking for a perl/awk/sed command to auto-increment the numbers line in file, P1.tcl:I am looking for a perl/awk/sed command to auto