str SecureQuery _GET if str Secure ig print

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