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