#!/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 "$_";                  
         }