I'm not sure I understand the question. It *sounds* like a question about how to use your editor. Read the manuals for the editor you're using to program. any editor worth using has a "find" and a "repeat last find" facilities.

Or have I misunderstood your question?

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]