Shell Programming and Scripting

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


foreach $fileName (@files) {
  print "$fileName\n";

  my $searchStr = ',rdata\)' | ',,rdata\)' | ', ,rdata\)';
  my $replaceStr = ".read(status,rdata)";

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

$line=~ s/,\s?,?rdata\)/\.read\(status,rdata\)/g;

$line=~ s/,\s?,?rdata\)|,,?rdata\)|,?rdata\)/\.read\(status,rdata\)/g;