Select Code to Download

#Open the file and slurp it into an array @lines

...
map{s/$orig_name/$new_name/g} @lines;

#Write the transformed array into file again