Shell Programming and Scripting

#!/usr/bin/perl
my @files = <*.c>;


foreach $fileName (@files) {
  print "$fileName\n";
 
  my $searchStr0 = '\n".write(status,data';
  my $replaceStr0 = '\n",data';

  open(FILE,$fileName) || die("Cannot Open File");
  my(@fcont) = <FILE>;
  close FILE;
  
  open(FOUT,">$fileName") || die("Cannot Open File");
  foreach $line (@fcont) {
      $line =~ s/$searchStr0/$replaceStr0/g;
        print FOUT $line;
  }
  close FOUT;
}

$display("Register write value\n".write(status,data));

$
$ cat file1.c
file1.c - line 1
file1.c - line 2
$display("Register write value\n".write(status,data));
file1.c - line 4
file1.c - line 5
$
$ perl -plne 's/\.write\(status,data\)/,data/' file1.c
file1.c - line 1
file1.c - line 2
$display("Register write value\n",data);
file1.c - line 4
file1.c - line 5
$