$orgtext = Whey; # this one right here $newtext = Popcorn; ##

##

$orgtext = /[Ww]hey/;  # this one right here
$newtext = Popcorn;

##

##

$orgtext = //;  # this one right here
$newtext = block;

##

##

$infile = 'C:\russ\weights\preg.htm';
$outfile = 'C:\russ\weights\preg_clean.htm';

# No, I am not pregnant, but I am helping a pregnant woman out! No...not just helping her get
# her start either :)

$orgtext = Whey;
$newtext = Popcorn;

undef $/; #slurp mode, read files in a whole

open IN, $infile or die $!;
$intext = ;
close IN;

$intext =~ s/$orgtext/$newtext/ms;
# the ms is for coping correctly with newlines (that can easily appear in a binary).

open OUT, ">$outfile" or die $!;
print OUT $intext;
close OUT;

# replaces ALL occurrences of orgtext with newtext and places the number of occurences in $count


##

##



  
    
        
          
        
        
          
              
                
                    
                      
                    
                    
                      
                    
                    
                      
                    
                    
                      
                    
                    
                      
                    
                    
                      
                    
                    
                      
                    
                  
              
              
                

                  
              
              
                 
                            
                            
                          
              
              
                
	
	
	

              
              
                
                    
                      

                    
                  
                  

                    We want to hear from you.

                    Suggest a NEW PRODUCT!!

                    :: click here::
              
            
        
      
    
  
  
    
 
      
        
          
              
                

                    
                Whey
                    Protein

                    Chocolate 3.3 lbs.

                    54 grams of protein per serving

                    

                    $
                    39.99
                

                  
                Whey
                    Protein

                    Vanilla 3.3
                    lbs.

                    54 grams of protein per serving.

                    

                    $
                    39.99
                    
              
              
                
                    
                      
                        Quantity:
                        
                          
                          
                      
                      
                         
                          
                          
                          
                          
                      
                    
                  
                
                    
                      
                        Quantity: