Select Code to Download

while (<>) {    
   s/$searchPattern1/$repalcePattern1/g;
...
   s/$searchPattern3/$replacePattern3/g;
   print;
}

while (<>) {
   if (s/$searchPattern1/$repalcePattern1/g) {
...

   print;
}

s/\s*\z/\n/;