perl file
use warnings;
use strict;
my $inputfile = $ARGV[0]; # input lib FILE

if ($#ARGV!=0)
{
   print "USAGE :: perl max_tran_update.pl <<LIB_FILE>>  \n\n" ;
   exit(1);   
}

my $cmd = "mkdir  tmpdir;";
system ($cmd);

my $iline;
my $flag_outpin=0;
my $out_pin_flag=0;


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

while ($iline = <INFILE>)
{
  chomp $iline;
  print $OPFILE "$iline\n";
     if (($iline =~m/^\s*direction\s*:\s*output\s*;/g))
     {
         $flag_outpin=1;
	 while ($iline = <INFILE>)
         {
	   if (($iline =~m/^\s*direction\s*:\s*input\s*;/g))
           {
	    $flag_outpin=0;
	   }
	   if (($iline =~m/^\s*direction\s*:\s*output\s*;/g))
           {
	    $flag_outpin=1;
	   }
	   if (($iline =~m/^\s*max_transition\s*:/g) && ($flag_outpin == 1))
	   {
	    $iline =~ s/$iline//g ;
	   }
	   else 
	   {
	    print $OPFILE "$iline";
	   }
	 }
      }
}	  
close INFILE;
close $OPFILE;