while (<>){
      if (/^#!/){
        $_ .= "Add this line.\n";
  }
}