apple and oranges

[Fred Sahakian]

Hi Crew:

Here's one--

Im taking in data through a Perl Script with the following conversion:

$value = ~s/Apple/Orange/g;


This is fine for new data, but each time the program is run it's taking all the data 
being entered and turning the apples into oranges, any ideas how I get the program to 
ignore the original data?  Ive tried a variety of logic but have had no luck.

thanks!