Shell Programming and Scripting

#!/usr/bin/perl

 
my $searchStr = 'register_inst\.write_t\('  | 'reg_inst\.write_t\(';
my $replaceStr = "model\.fc_block\.";

open(FILE,"temp.sv") || die("Cannot Open File");
my(@fcont) = <FILE>;
close FILE;

open(FOUT,">temp.sv") || die("Cannot Open File");
foreach $line (@fcont) {

    $line =~ s/$searchStr/$replaceStr/g;


    print FOUT $line;
}
close FOUT;

my $searchStr = '(register_inst\.write_t\(|reg_inst\.write_t\()';