script attack

Hi

I found an very interesting article at http://groups.google.com/group/Software-Quality-Process-Group/browse_thread/thread/f99c70fcc83de076/9b4d0ce0070fa2a4?lnk=st&q=perl+sql+injection&rnum=8&hl=en#9b4d0ce0070fa2a4

and would like to use the regex described

but how to use it if I have for exemple :

local our  $article = $query->param ('search_name');
 if ($article =~ /((\%3D)|(=))[^\n]*((\%27)|(\')|(\-\-)|(\%3B)|(;))/i) {
	$article = '*';
 }
doesn't work

any help thanks
.