Select Code to Download

 
#!/usr/bin/perl
 while (<>) {                         
...
                 }                    
         print "$_";                  
         }

 #!/usr/bin/perl -w                         
                                            
...
         s/;fac=.//g;                       
         unless (/^net/i) {print "$_";}     
         }