while (<DATA>)
                         {
                         $_ =~ s/oldpage/newpage/g;
                     
                         print;
                         }
                         exit 0;
                         close(DATA);



                          
                         __DATA__
                         title
                         oldpage
                         oldpage htm
                         tab
                         aaaaa