use strict;
use warnings;
my $inputfile = $ARGV[0]; # input  FILE
my $opt_cond;
my $iline;
if ($#ARGV!=0){
   print "USAGE :: perl default_operating_condition_update.pl <<FILE>>  \n\n" ;
   exit(1);   
}

my $cmd = "mkdir finallib;";
system ($cmd);
my @operating_cond;

open (INFILE,"<","$inputfile") || die "Can not open Input LIB File";
open (my $OPFILE,">","finallib/$inputfile") || die "Can not open Input Text File";

while ($iline = <INFILE>) {
  chomp $iline;
  print $OPFILE "$iline\n";
 
  if ($iline =~m/^\s*operating_conditions/g) {
  @operating_cond=split (operating_conditions,$iline);
  @operating_cond=split ("{",$operating_cond[1]);
  @operating_cond=split (/\(/,$operating_cond[0]);
  @operating_cond=split (/\)/,$operating_cond[1]);
  $opt_cond  = $operating_cond[0];

  print  $OPFILE "  default_operating_conditions : $operating_cond[0] ;\n" ;

 }  

}