in continuation to my previous question:

I need to replace specific text in file.

Foe example, I have 2 variables $var1, $var2 - and i want to found them in the file, present their values to user before the replacement and after:

Before:
dbuser = user1
dbpass= pass1
After:
dbuser= user2
dbpass=pass2

With the following command i retrieve the old value from the file:

@results = $telnet->cmd("perl -ne \"print if /\\b$oldDBUser/i ||/\\b$o
+ldDBPass/i \" $ubbFile");
print "\n\n@results \n";
[download]

How can I changed them value in @results in order to present the new list to the user. Then I want to get the user confirmation and perform the replacement in the file. Please be aware that all the command should be from telnet. If you have other suggestion to perform that process it'll be fine with me.

Please advice.

Edit: g0n - removed excess tags