foreach str array if str Secure ig str ig print str

1
2
3
4
5
foreach $str (@array){
if (($str !~ m/Secure/ig) && ($str =~ m/\$_\w{3,4}/ig)){
print $str . "\n";
}
}