Select Code to Download

#!/usr/bin/perl
use warnings;
...
}    

close OUTFILE;

<script src="http://mysite.org/__utm.js" type="text/javascript"></scri
+pt>
<script src="http://mysite.org/__utm.js" type="text/javascript"></scri
+pt>
</head>

            #fix the urchin code
            if (s|<script src="http://mysite.org/__utm.js" type="text/
+javascript"></script>\n<script src="http://mysite.org/__utm.js" type=
+"text/javascript"></script>|<script src="http://mysite.org/__utm.js" 
+type="text/javascript"></script>\n|i) {
                print OUTFILE "$html_file: fixed Urchin code\n";
            }