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