#!/usr/bin/perl
 while (<>) {                         
         if (/'5'/) {                 
                 s/[Nn]01/N01(+5) /g; 
                 s/'5'/'5';fac=5/g;   
                 }                    
         if (/'4'/) {                 
                 s/[Nn]01/N01(+4) /g; 
                 s/'4'/'4';fac=4/g;   
                 }                    
         print "$_";                  
         }                            

##</code><code>##

 #!/usr/bin/perl -w                         
                                            
 while (<>) {                               
         s/[Nn]01\(\+.\) /n01/g;            
         s/;fac=.//g;                       
         unless (/^net/i) {print "$_";}     
         }