while(FH){
     if($_ =~ /My_Name/){
         $_ = "##".$_,"\n";
         print FH  "$_";
     }
   }