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