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

##</code><code>##

while (<>) {
   if (s/$searchPattern1/$repalcePattern1/g) {
      warn("$searchPattern1 replaced with $replacePattern1\n");
   }

   elsif (s/$searchPattern2/$repalcePattern2/g) {
      warn("$searchPattern2 replaced with $replacePattern2\n");
   }

   elsif (s/$searchPattern3/$repalcePattern3/g) {
      warn("$searchPattern3 replaced with $replacePattern3\n");
   }

   else {
      warn("Search Patterns not found\n");
   }

   print;
}

##</code><code>##

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