Perl
16 Jul 2008
 
 
 
1
2
3
4
5
$str = "SecureQuery(\$_GET)";
if ($str =~ m/(SecureQuery|Secure|Query)\(\$_\w{3,4}\)/ig){
print $& . "\n";
}