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;
}