if (length ($request{'find'}) > 0 ) {
       $find=$request{'find'};
       $replace=$request{'replace'};
        while ($line =~ m{(.*)$find(.*)}){
          $line = $1 . $replace . $2;
        }
   }