/'1'/{                      
 h                           
 d                           
 }                           
 /'2'/G                      
 /'2'/{                      
 h                           
 d                           
 }                           
 /'3'/G                      
 /'3'/{                      
 h                           
 d                           
 }                           
 /'4'/G                      
 /'4'/{                      
 h                           
 d                           
 }                           
 /'5'/G                      

##</code><code>##

#!/usr/bin/perl -w                                       
                                                         
while (<>) {                                             
        if (/'5'/) {                                     
                s/[Nn]01/N01(+5) /g;                     
                s/'5'/'5';fac=5/g;                       
                s/^/NET1TOP BOX (NET);\n/g               
                }                                        
 etc…                                              
         print "$_";             
       }