Help in deleting no right mouse click code from 10k of pages on server

[airdick]

I hope nobody minds if I stick my nose in here. I've been following the thread hoping that a perl wizard would post some cool code that I can stash in my toolbox.

The errors that Cleo reports look to me like they were generated by the shell, not by perl. When I try to execute the perl script I get a different error. I can come close to reproducing the error if I attempt to run the script as a bash shell script (which we would expect to fail):

ejl@dangpow:~$ bash test.pl

test.pl: undef: command not found
test.pl: line 4: syntax error near unexpected token `s/(/<'
test.pl: line 4: `s/(/<script language="JavaScript1\.2">.*?document\.captureEvents\(Event\.MOUSEUP\).*?document\.captureEvents\(Event.MOUSEDOWN\).*?<\/script>)//sm;'

###########
Here is the error I get running the perl script:

ejl@dangpow:~$ ./test.pl some.html

Unmatched ( before HERE mark in regex m/( << HERE / at ./test.pl line 4.


ejl@dangpow:~$ find . -name some.html -exec test.pl {} \;

Unmatched ( before HERE mark in regex m/( << HERE / at ./test.pl line 4.

###########
ejl@dangpow:~$ cat test.pl

#!/usr/bin/perl -pi

undef $/;
s/(/<script language="JavaScript1\.2">.*?document\.captureEvents\(Event\.MOUSEUP\).*?document\.captureEvents\(Event.MOUSEDOWN\).*?<\/script>)//sm;

###########
ejl@dangpow:~$ /usr/bin/perl -v

This is perl, v5.6.1 built for i686-linux

ejl@dangpow:~$ uname -a

Linux dangpow 2.4.26 #1 SMP Tue Apr 20 20:19:50 PDT 2004 i686 unknown