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